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O CP 200 S e o parceiro 

ideal dos iniciantes. 

Com ele voce 

desenvolve as primeiras 
ligoesem computagao. 
Qualquer crianga pode utiliza 
lo para resolver tarefas 
escolares ou simplesmente 



curtir os mais divertidos jogos 
de video-game. 




TECNOLOGIA ■■■ 



)) PROUDGtCA ■■■ 



COMPUTADORES PESSOAIS 

RUA PTOLOMEU, 650-VILA SOCORRO-SAO PAULO-SP 
CEP 04762 - FONE: (PBX) 521-1633 




ITORIALJ 




memos 



un\-c 



iden 



idnde cultc 



ima de inudanga. 



ral 



avitier te 



exjiectal 



tua 



de 



cLisem/xiMowjtto-e- 



em 



todo.i o 



s setcrer,: r a tele 



intormatca 



s/£ tema 



Brasilsa 



[ v?m 



efetivar 



V'c 



unpt&uia- 



tBTTTOtOgfB 

tessilui* 



re 



im. \ pbdkroka 



ica 



3 intejragai nac 



onal ittre 



ves da 



tnfTimtt 



ca 



fer 



-■amet 









nlqagp 
m 



tra 



TTS^iODTTE 



ryai$ 
a~ 



opna_ 



socieda 1e 



se 



infirmat 



za, 



exigi 



ido cade 



)ouQS^--4i-sick-l-,X 



Vi?Z 



,77a 



s / 



nformago es 



bisi 



;af Oil espveii lizadus <ot 



re 



comp jtagao. A roylita 



nai pocTorm porrraTiwcQr 
d ie ateride '-sti ne cc &sktadett-dts 



P'oTogi 



Ge 



racao 



niosofia 



ca 



mesma 



ia 



•us 



teito 
prr \, rip vn s 



qte i< sua 



liSfagbs 



RiULl 



•?so, a 



pi\ril 



d 



ialj_o 



um 



sa 



) abeitoi'^-piira. 



repofja 



yens 



die as 



a^licacies 



fun co 



es 



do 



; cjmpu 



'adores besson is 



tv ai. 



ainda: Ion m 



criadis vari 



vrol 
f6rrrian 4& 



nd 



da-fi 



Tfor 

fe- 



as 
ifilitia ii cl>m 



se*;ots 



visando 



a iite'agao 



do 



usua 



10 



-anrovna-c 
SeUw-afi-k 



on 



xrrwttaxte 
if 4k 



xfe 



xrsxra 



TOir; 



VTrrr 



Wf-& 



ub 



rrr 



eia& 



se 



afiHffos 
mbem ok 



09 



taiiaji_d 



sp jm 



/ei 



s no n er sado ? ondi; encont-a 



OS 



og 



ranas q je 



normalmenl 



soTfijraTi 



rarfiSTprrrfac, 
pdcid l , h fi 
hLi_tiifu.ila gehn die 



e c ram pub 



les 



aporja pub 
Wfzae- 



icades r o 



ne 



io da 



evista 



ic kJos <!m 



urn encafte 



: e 



oes 
tfn-p-H f i ctar j s uc 



serao 



ut 



H&-. 



ai 



maLs 



jm 



3_t 



oa 



mlin 



a: 



ja 



sia_c 



o i nftir.a 



do 



CP '50 



Un 



da ie 



de 



Discos f 



ara o 



se 



j c;p we 



CDLDR 



ttar'us 



■Riije r to 



GcTJCtT 






SUMARIO 




REPORTAGENS 



SECOES 



>*9 



Cartas 



i Sof tware 



Clube 



nd 



art 



Tlfurido 
nforrrjati 
lei 



-IV OS 



irurius « 



CPi 



Hous 



s.. 



03- 



mitka-ii dicas 



es 



evtTrtiJs) 



P*3~ 



mi 



Pa 3 



13 e 14 



pig 



MHJS 



10 



e-^U 



pag^L2 



pab. 16 



CURSOS 



^a li ; e-e-et ia<;ao 



Mi 
Cuhso 



lireta 



de 



Basic 



de 



uma 



pig — 8. 
pag. 9 



maquinas de sua 
pags. 



especi 



5 e 6 



1 



aiSHiME 



15 



des e nurr ero, todc s os 



j^rtonerrTtd 



OS 



pro- 
enr) erica te" 



€DIT€U 



EDITOR E DIRETOR RESPONSAVEL 

Leonardo Bellonzi 



DIRETOR GERAL 
Marino Lobello 



H 



DIRETOR 

Carlos Roberto A. Gauch 

REDATORA 

Marta Regina de Souza 

COLABORADORES 

Departamento de Software 

da CP Computadores Pessoais Ltda. 

PRODUCAO EDITORIAL 
Sonia Aparecida da Silva 

REVISAO 

Sueli A. Mazze Cerchiaro 

DEPARTAMENTO DE ARTE 

Diretora: Ethel Santaella Lopes 
Diagramacao: Wilson Roberto Thomaz 
Arte Final: Sueli Andreato, 
Sebastiao Nogueira 

PRODUQAO GRAFICA 
Vagner Vizioli 

DEPARTAMENTO COMERCIAL 

Gerente: Ivan Jubert Guimaraes 
Assinaturas: Vera Lucia Marques de Jesus 

DEPARTAMENTO DE PUBLICIDADE 

Joao Conte Fiiho 

Composicao: A.M. Produgoes Graficas Ltda. 

Fotolito: Priscor Ltda. 

Impressao: Cia. Lithographica Ypiranga 

Geracao Prologica e uma publicagao da EDITELE - Edi- 
tors Ttenica Eletronica Ltda. - Reda?5o, Administra- 
cao e Publicidade: Rua Casa do Ator, 1060. Telefones: 
542-0602 (Assinaturas), 531-5468 (Administracao), 
532-1655 (Publicidade) e 240-8305 (Reda?5o) - CEP 
04546 - Vila Olimpia. 

CAIXA POSTAL 30.141 - 01000 - Sao Paulo - SP. 
Tiragem desta edicao: 22.000 exemplares. 
Todos os direitos reservados; proibe-se a reproducao par- 
cial ou total dos textos e ilustracSes desta publicagao. 
Proibida a venda, separadamente, do encarte especial 
de programas. 






V ^ 




Utiili.'hl:! 


TiTTrrTrr 



EVENTOS 



No Anhembi, Micro-Festival 85 Informatica em Brasilia 




Entre 20 e 23 de marco estard se reali- 
zando o IV Encontro de Microinforma- 
tica no Palacio das Convencoes do Parque 
Anhembi. O Micro-Festival 85, que fun- 
cionara das 14 as 21 horas, conta com 44 
expositores, distribuidos numa area de 
1 032 metros quadrados. Durante o even- 
to, serao mostrados microcomputadores 
comerciais e pessoais, equipamentos pe- 
rifericos, acess6rios para microcomputa- 
dores, software e prestacao de servicos. 



Abinee promove congresso 

A Associacao Brasileira da Indiistria 
Elettica e Eletronica (Abinee) promove- 
ra, de 23 a 26 de abril, no Centra Empre- 
sarial de Sao Paulo, o IV Congresso Bra- 
sileira da Indiistria El&rica Eletronica. O 
tema central do encontro e" "Id6ias para 
a Retomada do Desenvolvimento da In- 
dustrial Durante a realizacao do Con- 
gresso serao divulgados temas livres que 
serao discutidos com a participacao de re- 
presentantes estrangeiros que falarao so- 
bre o desenvolvimento do setor em seus 
respectivos paises. Maiores informacoes, 
pelo telefone: (Oil) 251-1577. 



*#ilMul7'T*J 



MNWl 






Programa do Usuario 

Envio esta carta na qualidade de assinan- 
te da revista Geragao Proldgica e possui- 
dor de um CP 500. Quero dar os parabens 
pela otima qualidade das materias publi- 
cadas e fazer duas perguntas: gostaria de 
saber como posso adquirir os niimeros 5 
e 6 da GP e o que devo fazer para ter pu- 
blicado um programa na coluna "Progra- 
ma do Usuario"? 

Luiz Fernando Travassos Azevedo 
Rio de Janeiro — RJ 

Caro Luiz, infelizmente, os niimeros 5 e 
6 da revista Geragao Proldgica estao es- 



O VII Congresso Regional e a IV Fei- 
ra Nacional de Informatica, patrocinados 
pela Secretaria Especial de Informatica, 
serao realizados no Centra de Conven- 
coes de Brasilia entre os dias 21 a 28 de 
abril. Na programacao t£cnico-cientifica 
do evento constam cinco pain&s politi- 
cos, cinco paineis de debates tecnicos, tre- 
ze palestras de convidados especiais, 
cinqiienta palestras de expositores, 65 ses- 
soes t^cnico-cientificas e diversas outras 
atividades. 



CURSOS 



Introducao aos Microcomputadores — 

Programa do curso: introducao, software, 
areas de aplicacao, programas mais utili- 
zados, pratica e painel de debates. Data: 
01 e 02 de abril (diurno) e 15 a 18 de abril 
(noturno). Taxa de inscricao: 20 ORTN's. 
Instituto Compucenter de Informatica — 
Rua Bela Cintra, 746—1? andar (Sao 
Paulo) — telefone: (Oil) 255-2091. 



gotados. Mas, a partir de agora, voce tem 
espaco no Clube dos CP's para se corres- 
ponder com outras usuarios que, talvez, 
tenham estes niimeros para troca ou c6- 
pia. Quanto ao "Programa do Usuario", 
mande-nos a listagem na linguagem es- 
pecifica e uma descricao do que faz o pro- 
grama, al6m das principais instrucoes e 
fun?6es, para posterior publicacao. 



Microprocessador 6809E 

Possuo um CP 400 COLOR e gostaria de 
receber mais informacoes sobre o micro- 
processador 6809E e quais os -computa- 
dores compa tiveis com o CP 400. Gosta- 
ria tambem de esclarecimentos sobre a 
funcao CLOAD, pois mesmo com o gra- 
vador no volume certo e os cabos conec- 
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Planejamento para a Microinformatica 

— Programa do curso: introducao, poli- 
tica para a microinformatica, assistencia 
aos usuarios, desenvolvimento de aplica- 
coes, treinamento de usuarios e estrat6- 
gia para a implementacao. Data: 08 e 09 
de abril. Taxa de inscricao: 40 ORTN's. 
Instituto Compucenter de Informatica — 
Rua Bela Cintra, 746—1? andar (Sao 
Paulo) — telefone: (Oil) 255-2091. 

Planilhas Eietronicas — Programa do 
curso: introducao, conceitos basicos, co- 
mandos do Supercalc e tecnicas avanca- 
das. Data: 15 e 16 de abril. Taxa de 
inscricao: 40 ORTN's. Instituto Compu- 
center de Informatica — Rua Bela Cin- 
tra, 746 — 1? andar (Sao Paulo) — 
telefone: (011) 255-2091. 

Banco de Dados — Im'cio: 8 de abril, no 
Instituto Brasileiro de Pesquisa em Infor- 
matica (IBPI), Rio de Janeiro, as quintas- 
feiras. Carga horaria: 36 horas. Horario: 
das 19 as 22 horas. Informacoes: (021) 
226-2913. 

CP/M — De 09 de abril a 02 de maio, na 
People Computacao (Rio de Janeiro). 
Carga horaria: 24 horas. Preco 10 
ORTN's. Informacoes: (021) 521-1549. 

Desenvolvimento de Sistemas — "O Me- 

todo Yourdon para Desenvolvimento de 
Sistemas" — Taxa de inscricao: 136 
ORTN's. Data: 15 a 17 de abril. Local: 
Hotel Ca'D'Oro — Rua Augusta, 129 
(Sao Paulo) — telefone: (011) 256-8011. 



tados corretamente, esta dando erro de 
entrada e saida. 

Gilberto K Braga 
Belo Horizonte — MG 

Gilberto, os computadores compatfveis 
com o CP 400 COLOR sao os seguintes: 
o TRS-80 COLOR, da Radio Shack; 
CODIMEX 6809, da CODIMEX; e o 
COLOR 64, da Novo Tempo. Sobre o mi- 
croprocessador 6809E, sugerimos uma 
pesquisa em livros ou revistas tecnicas 
especializadas. Normalmente, esta litera- 
ture e estrangeira, mas com o lancamen- 
to do CP 400 COLOR o mercado editorial 
brasileiro devera comecar a publicar mais 
informacoes. Em nossos proximos mime- 
ros, daremos, na medida do possivel, in- 
formacoes mais especificas sobre este 
microprocessador. Aguarde. 
Quanto ao erro na funcao CLOAD, apenas 
com as informacoes que voce deu fica di- 
ffcil saber a causa correta do erro. Primei- 
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to, € necessario saber se este erro ocorre 
em qualquer fita ou s6 na PROSOFT que 
acompanha o CP 400 COLOR. Em se- 
gundo, qual o gravador utilizado. O re- 
comendado e" o RQ2222, da National, 
usando-se para gravacao volume 2 e para 
leitura volume 7. A tonalidade deve per- 
manecer no 10. 



Informagdes Gerais 

Em primeiro lugar, gostaria de parabe- 
nizar a revista Geragao Proldgica pelo 
trabalho que vem realizando. No entan- 
to, como usuaria de urn CP 500, gostaria 
de tambem que a revista abordasse assun- 
tos mais gerais sobre informatica pois me 
sinto nuina situacao diffcil: uso a com- 
putacao em casa e em minha loja, mas em 
contrapartida nao sei nada sobre este se- 
tor, onde cncont rar programas que me f a- 
cilitariam a vida, quais as novidades do 
mercado etc. Gostaria tambem de saber 
se o CP 400 COLOR seria mais compe- 
tente para o meu caso, pois preciso do 
computador para fazer listagens de clien- 
tes, orcamento da loja e do mest ico, mala- 
direta e um editor de cartas, e o meu CP 
500 ja tern alguns anos. 

Vera Lucia Agostinho 
Sao Paulo — Capital 

Vera, a sua sugestao de ampliar as infor- 
macoes publicadas na GP foi totalmente 
bem-vinda. Neste numero voce ja deve ter 
notado a diferenca. Acreditamos que to- 
do veiculo de comunicacao tem que man- 
ter uma relacao com seus leitores para 
realizar a sua verdadeira funcao: informar 
e dar funcao a estas informacoes — por 
isso agradecemos sua colaboracao. Quan- 
to as maquinas citadas, informamos que 
os dois computadores sao muito podero- 
sos e os dois tem varios programas que 
voce pode utilizar em suas tarefas. Mas 
para voce fazer uma efetiva opcao, suge- 
rimos que procure um representante da 
CP — Computadores Pessoais — , para 
que lhe seja demonstrado, ao vivo, todas 
as possibilidades tanto do CP 500 quan- 
to do CP 400 COLOR. 



Compatibilidade ? 

Ao adquirir um CP 400 COLOR, recebi 
do revendedor a informacao de que to- 
dos os programas utilizados no CP 3Q0 
e CP 500 seriam de total compatibilida- 



de com o mesmo. Mas, ao tentar fazer uso 
de programas publicados na revista Ge- 
racao Proldgica constatei que os mesmos 
nao coincidiam com o esperado. Gosta- 
ria, entao, de receber instrucoes sobre a 
cqui Valencia dos comandos para tal uso. 
Da mesma forma, que fosscm publicados 
programas, jogos e comcntarios relativos 
ao CP 400 COLOR. 

Jorge Beck — Santa Maria — RS 

Gostaria de receber dicas para conversao 
de programas do CP 300 e CP 500 para 
o CP 400 COLOR. 

Galeno Lemos Gomes 
Sao Paulo — Capital 

Gostaria de receber dicas para converter 
programas do CP 200 para o CP 400 
COLOR. 

Gabriel L. Gomes 
Sao Paulo — Capital 

Caros usuarios, os CP's 200, 300 e 500 nao 
sao compatfveis com o CP 400 COLOR, 
pois seus microprocessadores sao diferen- 
tes. O microprocessador do CP 400 CO- 
LOR e o 6809E, possibilitando uma serie 
de comandos graficos especificos de sua 
linha, incompatibilizando-o com os ou- 
tros computadores pessoais. Somente um 
s61ido conhecimento dos comandos do 
CP 500 e do CP 400 pode possibility uma 
base para algumas modificacoes ou con- 
versao de pequenos programas em Basic. 
No encarte de programas deste numero, 
estamos publicando varios programas pa- 
ra o CP 400, alem de materias com infor- 
macoes sobre este computador. 



: ERRATA= 



No programa ATAQUE, para o CP 400 COLOR, 
publicado na GP n? 9, corrija as seguintes linljas: 

100 NM=3 

610 M1(T)=M1(T)+D1(T):... 
1050 COLOR7:LINE(20,20)- (15,30), 
PSET:LINE -(25,30)... 

Aviso: Este programa funciona com a velocidade 
do microprocessador aumentada devido ao coman- 
do POKE 65495,0, que muda a freqiiencia de .894 
para 1.6 MHz. Por isso, se o usuario for gravar este 
programa em fita cassete, lembramos da necessidade 
de, antes da gravacao, retornar a freqiiencia normal 
de processamento. Para isto, digite: POKE 65494,0, 
pois, caso contrario, a gravacao sera feita em alta 
velocidade, impossibilitando sua reproducao. 
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Lembra-se de Luke Skywalker, em Guerra nas Estrelas? 



Pois. voce podera sentir quase as mesmas emocoes de enfrentar 



um mortal ataque aereo 



com o software ZAXXON. Com uma pequena diferenga: 



o piloto sera voce! 



Com o programa ZAXXON, desen- 
volvido em tres dimensoes, voce podera 
transformar seu CP 400 COLOR no mais 
potente aviao de ataque para espacos 
abertos ou para fortalezas aereas. 

Mas como qualquer her6i que se pre- 
ze, voce devera enfrentar e veneer todos 
os inimigos. Para comecar, logo na deco- 
lagem, tanques de combustiveis, radares, 
canhoes e misseis serao uma barreira in- 
fernal para ultrapassar. Para tanto, voce 
s6 conta com um aliado: sua pericia. 

Mas nao pense que apos a decolagem 
os perigos cessaram. Seu inimigo e impla- 
cavel e prepara surpresas para voce! Que 
tal campos de forca desconhecidos? 

Pronto. Sua pericia conseguiu tira-lo 
dessa perigosa fortaleza aerea. Agora, a 
luta sera em espaco aberto contra avioes 
inimigos. Depois de destrui-los, pois vo- 
ce e o her6i, podera voltar e aterrissar na 
fortaleza onde lutou anteriormente e der- 
rotou a todos. Mas cuidado! Ha um ro- 
bo guardiao esperando por seu aviao! Ele 
esta armado de misseis e o pior de tudo 
€ que agora voce s6 tern seis misseis para 
se defender.:. 

Luke Skywalker sempre consegue ven- 
eer suas guerras. E voce em ZAXXON? 
A Geracdo Prologica selecionou este jo- 
go para voce, por isso nao vai deixa-lo na 
mao nesta perigosa missao. Eis algumas 
dicas para voce se transformar no gran- 
de her6i de ZAXXON: 

Para carregar corretamente o progra- 
ma, coloque a fita no gravador e pressione 
a tecla PLAY. Depois tecle CLOADM e 



ENTER. Depois de carregar, tecle EXEC 
e novamente ENTER, para dar inicio ao 
jogo. Se ocorrer algum erro, recomece a 
operacao com novo ajuste de volume. 

Para comecar, tecle 1 ou 2 para deter- 
minar o niimero de jogadores. Puxe o 
joystick para fazer seu aviao subir e em- 
purre para frente para faze-lo descer. 
Alem disso, voce pode desloca-lo para a 
esquerda e para a direita (lembre-se que 
os joysticks do CP 400 sao analogicos, ou 
seja, podem realizar qualquer movimen- 
to). Para atirar, e so usar o botao do 
joystick. 

Outra dica: alem de evitar colisoes com 
os tanques de combustivel, radares, ca- 
nhoes e misseis, tente tambem destrui-los. 
Principalmente os tanques de combusti- 
vel, pois so assim estara garantindo a sua 
pr6pria reserva (indicada na parte infe- 
rior da tela). 

Tambem e" importante voce saber que 
para passar pelos campos de forca deve- 
ra encontrar uma altitude ideal e atirar 
continuamente. 

Pronto. Depois de todas essas dicas, se 
voce nao se transformar no heroi de 
ZAXXON, so pode ser por um unico mo- 
tivo: seu inimigo 6 o pr6prio Luke 
Skywalker... 

Mas se voce quiser correr todos esses 
riscos para se transformar no campeao 
ZAXXON, procure este software na Peek 
& PokeMicrocomputadoreseComercio, 
na Avenida Brigadeiro Faria Lima, 1664 
— cj. 1101 — CEP 01452 — Sao Paulo, 
e fale com o Francisco. 



ONDb 
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As linhas dos computadores pessoais 
da CP Computadores Pessoais sao as 
mais poderosas do mercado tambem por 
causa da vasta biblioteca de softwares dis- 
poniveis. Alem dos programas desenvol- 
vidos pela propria empresa, existem va- 
rias software houses desenvolvendo ou 
adaptando programas fundamentals para 
que o usuario explore todas as potencia- 
lidades e possibilidades de seu computa- 
dorpessoal, quer seja oCP 200, CP 200S, 
CP 300, CP 400 COLOR E CP 500. 

Abaixo, mais algumas software 
houses onde voce podera encontrar pro- 
gramas para seu computador pessoal: 

• Art Sistemas — Rua Francisco DiasVe- 
lho, 140 — Brooklin — Sao Paulo — te- 
lefone: (011) 813-3277. 

• Monk Micro Informatica — Rua Au- 
gusta, 2 690 — loja 318/324 — Sao Pau- 
lo — telefone: (011) 852-2958 

• Eng. Computacao e Sistemas — Ave- 
nida Paulista, 1159 — cj. 611 —Sao Pau- 
lo — telefone: (011) 284-1218. 
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REPORTAGEM DE GAPA. 




EM DISCOS, MEMORIA, ARQUIVO... 




O CP 400 COLOR torna-se, a cada dia, urn dos mals 



poderosos equipamentos de sua linha. 



Principalmente agora, com o CP 450, a Unidade de Discos com ate dois drives. 



A partir de agora, o seu CP 400 CO- 
LOR podera realizar controle de estoque, 
editar textos, fazer cadastramento de 
clientes, agenda, mala-direta, folha de pa- 
gamento ou qualquer outra tarefa de que 
voce precisar, pois ja se encontra dispo- 
nivel no mercado uma das mais impor- 
tantes expansoes de seu computador 
pessoal: o CP 450, ou seja, Unidade de 
Disco que capacita seu equipamento a di- 
versas possibilidades de software, mem6- 
ria e armazenamento de arquivos. Nesta 
unidade estao instalados ate dois drives, 
a fonte de alimentacao e a interface con- 
troladora. 

Com o CP 450, tambem passam a ser 
disponiveis diversos comandos da Basic, 
relacionados com a manipulacao de ar- 



quivos em disco, pois o Sistema Opera- 
cional (contido em ROM) permite o con- 
trole total destes arquivos e de todos os 
disquetes. 

Ao instalar este sistema, uma parte da 
mem6ria disponivel do CP 400 passa a ser 
reservada para "buffer" de arquivos do 
usuario, resultando uma mem6ria livre de 
6 455 bytes, para 16 K, e 22 839 bytes no 
sistema 64 K. 

Mas a grande vantagem de se ter um 
sistema com discos 6 que a manipulacao 
de arquivos — sejam programas ou da- 
dos — e realizada num espaco de tempo 
muito reduzido. O acesso a determinado 
arquivo e quase que imediato, na medida 
em que o trabalho de localizacao e busca 



e feito automaticamente pelo Sistema 
Operacional. 

Mas a versatilidade e a potencialida- 
de do CP 450 nao se limitam a memorias 
e sistemas operacionais preestabelecidos. 
Com o software adequado, voce podera 
fazer modificacoes de acordo com suas 
necessidades. No CP 450 pode-se traba- 
lhar inclusive com dois sistemas operacio- 
nais desenvolvidos nos Estados Unidos: 
o OS-9 e o FLEX, que podem rodar dire- 
tamente no seu equipamento. 

Estes dois sistemas sao extremamente 
versateis, sendo que a potencialidade do 
OS-9 e comparavel a do poderoso UNIX, 
permitindo a utilizacao de todos os 64 
Kbytes de RAM, instalados no CP 400. 
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DISCO 



ARQUIVOS E 

MEMORIAS: UMA 



RAPIDA EXPLICACAO 



Um arquivo de disco pode conter qual- 
quer especie de informacao: um progra- 
ma, uma lista de enderecos, um texto ou 
algumas anotacoes. Se voce esta inician- 
do sua experiencia neste sistema, preste 
atencao neste pequeno programa em Ba- 
sic, para realizar o seu primeiro arquivo. 
Simplesmente digite cada linha do pro- 
grama exatamente como ela e mostrada 
a seguir, pressionando a tecla ENTER de- 
pois de digitar cada linha. 

10 PRINT "GUARDE-ME EM UM 
ARQUIVO DE DISCO" 

20 PRINT "E VOCE NUNCA ME 
PERDERA" 

Acabou? Agora que voce digitou o 
programa na mem6ria do computador, 
passe-o para o disco. Para tanto, voce te- 
ra que dar um nome a este arquivo, assim 
como a todos que quiser armazenar em 
seu disco. Porexemplo, "DISCO/PRO". 
Para armazena-lo, digite: 

SAVE "DISCO/PRO" ENTER 

Uma vez pressionada a tecla ENTER, 
seu drive de disco emitira alguns sons e 
a luz vermelha acendera. Isto significa 
que seu CP 400 esta procurando um lu- 
gar no disco para armazenar "DIS- 
CO/PRO"; dizendo ao diret6rio onde 
"DISCO/PRO" sera armazenado e ar- 
mazenando "DISCO/PRO" em seu dis- 



co. Quanto tiver terminado esta operacao, 
o computador imprime a mensagem OK 
na tela. 

Ja a memdria 6 o lugar onde o com- 
putador guarda todas as informacoes que 
voce "passar" para ele, atraves do progra- 
ma utilizado. A partir delas o computa- 
dor pode imprimi-las, rearranja-las, 
combina-las ou fazer qualquer outra coi- 
sa que voce deseja. A introducao de in- 
formacoes na mem6ria do computador 
sempre d feita atraves de programas espe- 
cificos para cada fim. 

Os programas em disco, compativeis 
com o CP 400 COLOR, podem ser encon- 
trados em lojas especializadas, ou nas se- 
guintes software houses: 



BIT — Porto Alegre — RS 

Caixa Postal 11.005 
Telefone: (0512) 21-7942 

Color Club — Rio de Janeiro — RJ 

Caixa Postal 9079 

Peek & Poke — Sao Paulo — SP 

Avenida Brigadeiro Faria Lima, 1664 — 

cj. 1101 

CEP: 01452 — telefone (011) 813-3277 



Um disco magnetico e um 
dispositivo de gravagao pare- 
cido com uma f ita cassete, no 
que diz respeito ao sistema de 
gravagao. Mas as semelhan- 
cas param por af. Devido ao 
seu formato, os discos permi- 
tem uma utilizacao muito mais 
sofisticada e ef iciente do que 
as f itas, principalmente no que 
se refere a localizagao das in- 
formagoes. 

O disco pode armazenar 
161 280 bytes, que equivalem a 
1 290 240 bits ou sinais mag- 
neticos gravados em sua su- 
perffcie. Estesmilhares debits 
sao organizados pelo seu 
computador por um sistema 
de arquivo no disco, com 35 tri- 
Ihas por disco, 18 setores por 
cada trilha, 256 bytes em cada 
setor e 8 bits em cada byte. 

Depois de criar este sistema 
de arquivo, o computador co- 
loca no disco um indice remis- 
sivo(diret6rio),queindicatudo 
o que esta armazenado, quer 
sejam programas ou dados. A 
partir do diret6rio, o seu com- 
putador pessoal procura as in- 
formagfies armazenadas atra- 
ves das trilhas e setores, E es- 
te sistema de arquivo o grande 
responsavel pela potencia e 
eficiencia dos sistemas em 
discos, pois o acesso a todas 
as informagSes armazenadas 
e rapido e direto. 
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informatics tern dessas coisas: 
quanto mais voce conhece a po- 
tencialidade e as possibilidades 
de seu equipamento, mais sen- 
te necessidade de novos conhecimentos ou 
mesmo "dicas" sobre adaptagao de instrugoes 
ou como melhor operar urn software e onde en- 
contra-lo. Devido a esta necessidade, os usua- 
rios de computadores pessoais Prologica tern 
utilizado a revista Geragao Prologica como ca- 
nal de comunicagao para receber informagoes 
sobre as fungoes e utilizagao de seu compu- 
tador. 

Mas, por ser uma comunidade em constante 
crescimento, tanto qualitativo como quantitati- 



vo, ela conquistou mais urn espago: a institucio- 
nalizagao deste meio de participagao efetiva — 
quer entre a propria comunidade quer com a 
empresa, ou seja, esta aberto para os usuarios 
o CLUBE CP's. 

Para participar, e so mandar seus programas 
e "dicas" para a revista. Depois de uma previa 
selegao, onde o criterio sera inter esses gerais 
ou especfficos, as respostas e solugoes serao 
publicadas pela Geragao Prologica. Alem disso, 
o CLUBE CP's tambem tera uma segao de clas- 
sificados, com a participagao restrita de usua- 
rios ffsicos, com o objetivo de troca de corres- 
pondencia, informagoes e qualquer outra tran- 
sagao de equipamentos particulars. 



Memoria disponivel do CP 400 COLOR 

Maria Hermana Rodrigues de La Sierra, estudan- 
te, residente em Sao Paulo e usuaria de urn CP 400, 
afirma em carta a redagSo, que teve "muitos proble- 
mas em entender a mem6ria disponivel em seu com- 
putador CP 400 COLOR". Como muitos usuarios 
tambem podem estar com o mesmo problema, Maria 
Hermana manda uma "dica" sobre as diferencas do 
CP 400 16 K e 64 K, em cartuchos e fitas cassetes, 
e suas respectivas mem6rias livres: "Nem toda me- 
m6ria do computador, quer seja de 64 ou 16 Kbytes, 
e disponivel ao usuario. Isto pode ser constatado ao 
se acionar o comando PRINT MEM: no video, o CP 
mostrara que a mem6ria livre para 64 K e de aproxi- 
madamente 24 K e para o de 16 Kbytes, 8 K. Isto acon- 
tece porque o computador utiliza 16 K para enderecar 
a ROM, com o Basic Color, e 16 K sao reservados pa- 
ra a utilizagao de cartuchos. Alem disso, 8 K sao alo- 
cados para a mem6ria de video de alta resolugSo. 

"Paredao de Estrelas" para o CP 200S 

Ja o Sidnei de Souza Lima, de Sao Paulo, manda 
o seguinte recado para os usuarios do CP 200S: O pro- 

GERACAO PROLOGICA 



grama 'Paredao de Estrelas', que consta na fita Pro- 
soft que acompanha o CP 200, possui duas linhas que 
devem ser alteradas para o CP 200S. Para tal, leia o 
programa normalmente, mas quando aparecer0/0 no 
video, digite novamente as linhas abaixo, e depois sal- 
ve o seu programa em fita. 



30 PRINT "D9210025E5FD362320E 

12CE5DBFE7DE6032851FE02201C06571 

t 
OFED3FF3EEC06" 



50 PRINT "FE7DED50CB522005FEF 

t 
C28012CCB622005FEE228012D1683CD0 
040FD75220634" 

Fernando Luis da Silva, de Bauru, SP, e Frank, de 
Linhares, ES, que tambem escreveram a redagao pa- 
ra a criagao do CLUBE, agora ja tern o espago espe- 
rado. Para o prbximo numero, esperamos mais 
"dicas" e sugestfies. 
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Neste segundo artigo, aprenda as regras basicas para a rotina 



de cadastramento e a Crftica de Entrada de Dados 



Luiz Antonio Borba 



Continuando a nossa analise, ve- 
remos agora como proceder 
com a rotina de cadastramen- 
to para o programa de Mala Direta. 
Devemos nos prevenir quanto ao 
truncamento dos nomes, enderecos etc., 
que poderao ocorrer se nao criarmos 
uma limitacao para.o campo. Nao usa- 
remos aqui nenhuma rotina sofisticada 
para entrada de dados, pois isto fugi- 
ria um pouco ao objetivo desta serie, 
mas, mesmo assim, usando o comando 
INPUT da Basic e possivel conseguir 
bons resultados; vejamos por exemplo 
as linhas abaixo: - 

200 PRINT@128, "DIGITE NOME 
(MAX 30 LETRAS)";:INPUT YS 
210 IF LEN (YS) < =30 THEN 230 
220 PRINT "NOME MAIOR QUE 30 
LETRAS! REDIGITE":GOTO 200 

Se o comprimento da variavel Y$ for 
maior que 30, o programa colocara lo- 
go abaixo do nome digitado a mensa- 
gem da linha 220, avisando ao digitador 
que deve ser feita uma abreviacao deste 
nome. Se isto nao fosse feito, ao efe- 
tuarmos a gravacao, o nome seria trun- 
cado pois no FIELD da linha 60, temos 
apenas 30 caracteres (ou bytes) reserva- 
dos para a variavel NOS. Devemos to- 
mar, entao, este tipo de cuidado com 
todas as variaveis que forem digitadas, 
e sempre na seqiiencia imediata da digi- 



tacao. Pois, se. deixarmos para "checar" 
depois, sera extremamente trabalhosa a 
operacao correcao/abreviacao. 

E importante notarmos tambem que 
o comando PRINT® 128 posiciona o 
cursor sempre no mesmo lugar da tela, 
evitando assim um indesejavel "scroll" 
das linhas. Uma outra variacao desta li- 
nha (200) pode ser: 

200 PRINT@1 28,;:INPUT"DIGITE O 
NOME (MAX 30 LETRAS)",YS 

que teria exatamente o mesmo efeito, 
pois novamente o comando PRINT® 
teria posicionado o cursor antes de co- 
locada a mensagem para o digitador. 

Como a mensagem de erro ficou lo- 
go abaixo do INPUT, assim que o digi- 
tador pressionar a tecla ENTER, es- 
ta mensagem sera apagada, pois o sig- 
nificado de ENTER para a instrucao 
INPUT e: fim de entrada de dados, mo- 
va o cursor para a proxima linha. Ora, 
quando o cursor for movido para a li- 
nha seguinte, ele (o cursor) apagara a 
mensagem de erro. 

Existe ainda um "pequeno" incon- 
veniente nesta nossa vqlta a posicao 128 
da tela; ocorre que o cursor ficara na po- 
sicao imediata do ap6s mensagem de 
INPUT (DIGITE...); nao apagando o 
nome errado (nao abreviado) que la es- 
tava. Embora para o computador isto 
nao faca diferenca, o efeito visual e bas- 



tante ruim, pois ap6s digitar o nome ja 
ja abreviado vai "sobrar" uma parte da 
digitacao anterior (experimente no seu 
micro). Para solucionar este problema, 
podemos usar uma caractere de contro- 
le do CP 500, que apaga da posicao do 
cursor ate o fim da linha; o caractere e 
CHR$(30). A nossa linha 200 ficaria 
entao: 

200 PRINT128,CHRS(30);"DIGrrE O NO- 
ME (MAX 30 LETRAS)";:INPUT YS 

Isto que nos fizemos no nosso pro- 
grama e chamado de Critica de Entra- 
da de Dados. 

Seria extremamente proveitoso que 
voce (em casa) fizesse a mesmia coisa pa- 
ra os campos de Endereco, Fone, Cida- 
de, Estado e CEP. Tome cuidado para 
nao invadir a numeracao ja estabeleci- 
da na linha 90 (ON ... GOTO ...) para 
as outras opcoes do menu principal. 

Para encerrar o cadastramento, pro- 
cure colocar uma mensagem para o ope- 
rador dizendo alguma coisa como: 

DESEJA CONTINUAR SIM OU NAO? 

e, de acordo com a resposta, volte o flu- 
xo do programa para a linha 200 ou pa- 
ra a linha 70 (menu principal). 

No proximo numero terminaremos 
este cadastramento e mostraremos a lis- 
tagem completa do mesmo. 
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Recuperagao de Discos 



CP 400 COLOR 64 e 16 Kb RAM 



■« O que fazer. quando a temida frase 
"I/O Error" surge na tela, indicando mais 
um disco pifado, bem na hora de rodar 
aquela copia em disco do ZAXXON, que 
voce demorou tanto paraconseguir? Pri- 
meiro, xingue bastante... quando termi- 
nar, tente novamente a operacao onde 
ocorreu o erro e, caso persista, o ultimo 
recurso e pegar o backup e copia-lo no- 
vamente no disco pifado. Evite usar o bac- 
kup em substituicao do original, pois se 
ocorrer um novo erro, voce nao tera mais 
a que recorrer. O disco de backup deve ser 
usado apenas para "recondicionar" o dis- 
quete com defeito, fazendo-se uma c6pia 
daquele. Nao se esqueca de reformatar o 
disco defeituoso. 

Mas... e se voce nao tiver um backup? ! 
Ai entao tera um problema serio nas 
maos. Nao ha como recuperar a informa- 
cao perdida, pois o setor fica simplesmen- 
te ilegivel para a unidade de disco. Certos 
utilitarios oferecem meios de se recondi- 
cionar arquivos que contenham setores 
nestas condicoes, mas o trabalho e bas- 
tante complexo. Geralmente o que e feito 
consiste em um dump do arquivo, mos- 
trando o conteudo que se conseguiu ler 
no setor defeituoso. Esse setor tera que 
ser reconstituido manualmente, ou seja, 
os bytes errados devem ser editados. Isso 
e relativamente simples se o arquivo for 
de dados (principalmente no formato 
ASCII), pois pode-se localizar o defeito 
em uma listagem anterior. Mas se o ar- 
quivo for binario ou de comando, isso e 
quase impossivel. Portanto, tenha sempre 
backups de seus programas e arquivos de 
dados. 

Os programas e arquivos de parame- 
tros nao alterayeis devem ser mantidos em 
discos "matrizes", que so serao usados no 
caso da c6pia em uso pifar. Ja os arqui- 
vos de dados ou programas editados de- 
vem ser copiados "sempre" depois de 
usados. O esquecimento dessa regra po- 
de por a perder todo o trabalho realiza- 
do entre a ultima c6pia e o momento da 
falha. 

O grande problema ao recuperar um 
disquete defeituoso e que o computador 



vai copiar todos os setores novamente, os 
bons e os maus. Isso quer dizer que o 
computador nao copia apenas o setor on- 
de ocorreu o erro, mas todos os setores 
gravados no disco. Como o disquete e di- 
vidido em 35 trilhas concentricas, nume- 
radas de a 34, cada uma contendo 18 
setores , serao copiados 630 setores e so 
um esta com problemas. 

Uma tecnica mais pratica 

E o pior e que, em 95% dos casos, e 
sempre na mesma trilha: a niimero 17. O 
motivo e simples; essa e a trilha do dire- 
t6rio e quase todas as operacoes com dis- 
co acessam, de uma forma ou de outra, 
as informacoes ai contidas. Voce pode ve- 
rificar se foi a trilha 17 a que deu proble- 
ma simplesmente introduzindo o coman- 
do DIR. Se foi, a mensagem de erro apa- 
recera. 

Partindo dai, e facil pensar num siste- 
ma que agilize os backups que voce ne- 
cessita. Voce s6 precisa copiar a trilha do 
diretorio; assim, alem de agilizar a copia, 
voce economiza em disquetes, pois com 
apenas um disquete voce podera ter ate 
34 diret6rios gravados, e conseqiiente- 
mente, 34 discos protegidos contra a prin- 
cipal causa de problemas em seu sistema. 
A trilha restante e o pr6prio diretorio do 
disco, que chamaremos de "Backup 
Mestre". 

Este programa copia apenas a trilha do 
diret6rio e realiza toda a manipulacao do 
Backup mestre. Assim que voce tiver o 
programa rodando, surgira na tela as seis 
opcoes, como segue. 

Gravar o diretorio no B.M. (Backup 
Mestre): Com essa opcao voce pode fa- 
zer o backup de um determinado disco. 
Voce deve seguir as instrucoes dadas na 
tela, introduzindo o disquete do qual vo- 
ce quer fazer o backup e pressionando 
ENTER. Feito isto, o programa vai copiar 
o diretorio (o conteudo da trilha 17) nas 
matrizes D$ e E$. Troque o disco pelo 
Backup Mestre e pressione ENTER no- 
vamente. O programa verifica entao se 
existe alguma trilha disponivel. Se hou- 
ver, ele pedira o nome do disquete, que 



pode ter ate doze letras, e grava o diret6- 
rio no Backup Mestre. Cuidado para nao 
charnar dois diretorios pelo mesmo no- 
me. Isso poderia interferir na operacao 
das demais opcoes. 

Mostrar os nomes dos disquetes com 
backup no B.M.: Voce pode querer sa- 
ber quais os disquetes que voce ja tern em 
backup. 

Recuperacao de diretdrio: Utilize esta 
funcao quando voce tiver um "I/O Er- 
ror" na trilha 17 de um dado disquete. O 
programa vai mostrar os nomes dos dire- 
torios gravados. Introduza o niimero cor- 
respondente ao disquete que voce quei 
recuperar. O programa vai carregar na 
memoria os dados referentes a trilha de- 
feituosa e pedir a troca de disquetes. Co- 
loque o disquete danificado e pressione 
ENTER. Agora voce ja pode usar nor- 
malmente o seu disquete. 

Cancela backup de determinado dis- 
quete: Essa funcao e parecida com o co- 
mando KILL do BASIC Disco. Ela apaga 
diretorios nao mais necessdrios no seu 
B.M., permitindo mais espaco para no- 
vos disquetes. Nao deve ser usada Can- 
celar Backups de disquetes ainda em uso. 

Mostrar um diret6rio: Voce pode com 
essa opcao verificar o conteudo de um de- 
terminado backup no seu B.M. para sa- 
ber, por exemplo, se e realmente a ultima 
versao do referido disquete. 

Fim: Devolve o controle ap Basic. 

Em todas as opcoes, voce pode retor- 
nar ao menu inicial , pressionando a barra 
de espaco. 

O programa foi criado para um Color 
Computer de 64 Kb, mas pode rodar em 
equipamentos de 16 Kb tambem. Para is- 
so, antes de digitar o programa, in- 
troduza: 
PMODE0:POKE25,14:POKE3584,0: 

NEW ENTER. 

Isto fara com que o computador libe- 
re 6 kb antes destinados para os graTicos 
de alta resdlucao. (No caso especifico do 
CP 400, nao e necessario esse recurso, 
pois o equipamento sempre opera com 
64 Kb ao se instalar a unidade de disco 
CP 450.) 
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BACKUP MESTRE 



16 '=== 

20 ' 

30 ' PRULO RDDRIR 

50 ' MENU 

60 CLERR3588:DIM NI$ (64) ,TI$<34> 

, EL ( 34 ) s CLS2 s PR INT$64 , " " a PR I NT s P 

RINT 

70 PRINTG65,"DISCD DE BACKUP MES 

TRE (B.M. ) * , !PRINTGi28,"Vl/0":PRI 

NT3148, "PAULO RDDRIR"; 

80 PRINTG195,"<i> GRAVA DIRETORI 

NO DISCO"; 

90 PRINTG227,"<2> MOSTRR BACKUPS 

NO B.M. 

100 PRINT<2259,"<3> RECUPERR DISQ. 

UETE " ; 

110 PRINTG291,"<4> CRNCELR UM D 

IRETORIO "; 

120 PRINTG323,"<5> MOSTRR UM DIR 

ETORIO "; 

130 PRINTG555r"<6> TERMING PRO 

GRAMfl "; 

146 PRINT<24S3,"QURL SUR ESCOLMR "; 

150 A$=INKEY*s 1FR$ = ""THEN15'0 

160 A=VAL(A$)xIFA<l OR R>6 TlJENlSS 

178 IFR=6THENCLS:END 

188 CLSsIF R>1RNDR<6 THEN PRINTS 

224, "INSIRR BACKUP MESTRE E <E 

NTER>"sEL3E IFR=1THEN PRINTG225, 

"INSIRR DISCO COPIRR DIR.": 

PRINT<5263,"E PRESSIONE <ENT£R>" 

190 R$=INKEY*:IF fl$ = " " THEN 60 

ELSE IF A*OCHR*(13)THENI96 ELSE 

ON fl GOTO 280,400,600,388,1888 

208 / GRRVR DIRETORIO ~ 

218 CLERR 4800: T=0: X=0: Y=0: 

DIM D*(10>,E*(10),F$<35) 

220 FOR X=2 TO 11 

230 DSKI* 0,17, X, D$(Y), E$(Y)n 

Y=Y+1 

240 NEXT X 

250 CLS : PR INTQ224, "INSIRR BACKUP 

MESTRE & <ENTER>" 

260 A$=INKEY$sIF fl* = " "• THEN 68 

ELSE R$OCIIR$(13)THEN 260 

270 GOSUB 1400 

280 FOR X=l TO 2:F0RY=1 TO 17 

290 F* ( Y-xX ) =MID$ ( B* t X ) , Z *1 5 + 2 , 1 ) 

i;F=fi5C<F$(Y*X)) 

300 T=T + 1 

310 IF F=255 THEN 170 

320 Z=Z+1: NEXTYsZ=0:NEXTX: CLS£ 

PRINT<3235, "DISCO CHEIO":FOR X=l 

TO 650: NEXTX:GOTO 60 

330 CLSsPRINT<a234,"N0ME DO DISCO 

" sPRINT(3266,""; : INPUT.NM*:IF LEN< 

NM$)>12 THEN 330 



340 IFLEN<NM$)<12THENNM$=NM$+" " 

SG0T0348 

350 MI D$ ( B* < X ) , 2*1 5+2 , .1 ) =."0 " : 

MID*(B*(X> ,Zxl5+3,12)=NM$ 

360 GOSUB 2000: X<=8: Y=8: FOR 

X=2 TO 11 

378 DSKO* 8, T, X, D*(Y), E$cY): 

Y=Y+1: NEXT X: GOTO 68 

mgg / LISTA BACKUPS 

410 CLS3:FRINT<32,"LISTR DE DIRET 

ORIOS COPIRDOS"; 

420 GOSUB 3888:PRINTG414,"<ENTER 

> PRRR C0NTINURR":PRINT<§446,"<ES 

PRCO> PRRR DESISTIR"; 

430 fl*=INKEY$:IFB*=" "THEN 60 EL 

SE IF fl*OCHR$<13) THEN 430 

440 CLS3:PRINT<a2,"LISTR DE DIRET 

ORIOS COPIRDOS" ;:G03UB3586 

450 PRINTQ414,"<ENTER> PRRR R'EVE 

R":PRINT<2446,"ESPRCG PRRR DESIST 

IR" 

460 R$=INKEY$:IF R$=" " THEN 68 

ELSE IFfl*=CHR*(13) THEN 408 ELSE 

460 

600 RECUPERRR DIRETORIO ---- 

618 CLS3:PRINTQ4,"RECUPERRCR0 DE 

DIRETORI OS";. 

628 GOSUB3000.-PRINTG414, "<ENTER> 

PRRR C0NTINURR":PRINT<3446,"<S> 

PRRR SELECIONRR UM DIR.": PRINT <2 

478,"<ESPRC0> PRRR DESISTIR"; 

630 fl$=INKEY$:IFfi$=" "THEM60ELSE 

IF fi*=CHR*<13) THEN 603 ELSE IF 

R1><>"S" THEN 638 . 

640 PRINT3416,"DIGIT£ NUMERO 

DO DIRETORIO" 3PRINT@448,"":PRINT 

Q490," "; .-PRINT 8442, 

"";: INPUT T 

650 X=0:Y=l:FORX=2 TO 11 

660 DSKI$ 0, T, X, D$(Y), E$(Y) 

67% Y=Y+1:NEXT X: X=B: Y=0 

638 CLS s PRINTQ225, "INSIRR DISCO 

A RECUPERRR & <ENTER>" 

698 fl* = INLEY$:IFR$OCHR$(13)THEN 

698 

708 FOR X=2 TO 11:Y=Y+1 

710 DSKQ* 8,17 X, D$(Y), E*(Y) *' 

728 NEXT X 

736 GOTO 68 

3 > CRNCELRR DIRETORIO 

810 CLS3:PRINT<34, y CflN'CELRR DIRET 

ORIO"; 

828 G0SUB3688:PRINTe416,"<ENTER> 

PRRR C0NTINURR'':PRINTG44S,"<C> P 

RRR CRNCELRR" : PR I NTQ488, "ESPRCC 
P/ DESISTIR" 

830 R$=INKEY$:IFR$="C" THEN 868 
ELSE IF fl$ = " " THEN 68 ELSE IP 
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R$OCHR*(13) THEN 030 

540 CLS3 2PRINTi£4 7 ! 'CRNCELRR OIRET 

ORIO"; :; GOSUB 3508;;PRINT'34i6r "<EN 

TER> PRRR REVER":PRINT<344S>. ,, <C> 

PRRR CRNCELRR":PRINT<i!488 7"ESPRCG 

PRRR DESISTIR" 

850 R*=INKEY$sIF R*=CHR* ( 13).THEN 

SG)3 ELSE IF R$=V " THEN 60 ELSE 

IF R$<>"-C !t vTHEN 358 

S69 PRINTS 16 7 "" s PRINT8448 7 ,! " : 

PRINTS416, "NUMERO 00 DIRETORIO R 

f*rtMr*ci nrv'ir. „ t \';::i| it |y a tc |/y'1 n 1 ? kf\l?U 
tV'"l- •-'I- :-'"!• '■ ? ! iO(r U i K i i. i r\ ••. x bis Fw O.'-; 

THEN 6E - 

S7S PRINT<3448»"C0NFIRME (SIM OU 

NRG) ''is INPUT R*:IFR*<>"SIM"TliEN 

68 

880 GOSUB 1300sZ=03 T2*=TI*(K): 

FOR Y-l TO 34 s IF Y>17 THEN X=^2 

ELSE K-l- 

890 IF MID*(B$(X) ,Z*13+3rl2)*T2$ 

THEN GOTO 930 

900 Z*Z+I': IF Y = 17 GOSUB 928 

910 NEXT Ys CLSs PRINT£264 , " DIR 

ETORIO NRG RCHRDO" sFCRX=lT0188B'. 

NEX T -;: GOTO 68 

928 Z=0: RETURN 

933 MID*<8*<X : ) ,Zxl5+2,l)=CHR*(23 

S):iMID*(B$(X)7Z*15* rT ,12) = " 

940 GOSUB 2080s GOTO 60 

1^80 '.-•■- MGSTRRR UM DIRETORIO ~ 

1818 CLS3:PRINT^4,"M0STRRR UM DI 

KETORIO"; 

r&20 GOSUB3000:?e416,!'<ENTER> PR 

RO G0NTINURR":PRINT<a448,"<S> PRR 

R SELECIONRR"sPRINT<3480,"ESPRCG 

F'hRR DESISTIR" 

1838 R*=INKEYi:IF R*="S"THEN.1060 

ELSE IF fl$" " THEN 68 ELSE IF fi* 

<>CHR$(13) THEN 1838 

1040 CLS32PRINT<a4r"MG3TRRR UM DI 

RETORIO"'ssGOSUB3508bPRINTS416» ,, < 

ENTER>. PRRR CONTINURR" sPRINT(2448 

,"<S> PRRR SELECIONRR"sPRINTG4S0 

?"ESPflCO PRRR DESISTIR" 

1 030 fl*= I NKEY £ i I FR$~CHR$ (13) THEN 

1080 ELSE Ir R$~" " THEN 60 ELSE 

IF R*<>"8" THEN 1058 

1868 PRINT(244Sr" ,! 5PRINT^416»"DIG 

ITE NUMERO DO DIRETORIO" j : INPU 

T V:PRINTQ448r"" 

1078 IF V<1 OR V>34 THEN 68 
1088 FOR X=3 TO 11 

1098 DS'KI* 8>V/XrD*>E* 

1108 F*=D*+LErT*(E*»127) 

1110 FGRZ=0TC7:NM*=MID*CF-**Z*32 + 

1> 3) s EXT$-M ID* < F$ .- Z*32+9 , 3 ) 

1120 IF RSC<NM$)=0THEN 1148 ELSE 



IF RSC(NM*)=255 THEN 1138 

1130 Q=Q+i:NI<!>(Q}~Ni-iS+"/"-*EXT* 

1148 NEXT Z 

1158 NEXT X 

1160 R~I 

1170 CLS3 1 PRINT(?S, "DIRETORIO NUM 

£RO'VjVj ;:Y=64 

1188 FOR X-=R TO Q 

1-1.90 ?RINT«Y,NI$(X); 

1280 IF X/24=INT(X/24) THEN 1228 



1218 Y=Y+16sNEXT- X 



1228 PRINT(5484,"<ENTER> PRRR CON 

TINURR";, 

1230 R*=INKEY*!lFR*<>CIIRS(13)THE 

N .1.230 

1248 If X>Q THEN 60 ELSE R=X+1: 

GOTO 1170 

1480 ' PEGR TRILKR -• 

1418 DSK-liC'0j 8r lx R*<1)> R*(2) 

sDSKI* 8, 8, 2/ R*(3) ? R*<4) 

1420 R*(2)=LEFT$(R*<2)rl27) s 

fi*(4)=LEFT*(R*(4>»127) 

1428 B$a>==R*a)-v-R$£2> !B*<2)=R*< 

3)+R*(4) 

1430 R* i 1 > =" " : R* < 2 ) = " " s fl* ( 3 ) = " " s 

fl*(4) = ,! " 

1440 RETURN 

2000 R*<l)=LEFT*(B*(l)»128):fl$(2 

) =R IGHT* ( B* ( 1 J , 1 27 ) + "O " : fl* ( 3 ) =LE 

FT* ( B* ( 2 ) , 1 28 ) s fl* ( 4 ) =R I GHT* ( B$ ( 2 

),127)+"0" 

2818 B*(1)="":B*(2)="" 

2020 DSKO* 0, 0x 1, fl*(l)r R*(2) 

:DSKG* 7 7 2, R*(3)7 fl*(4) 

2030 RETURN 

3800 ' MOSTRR DIRETORIO 

3018 GOSUB 1400 

3028 Z = 0s FOR Y==l TO 34 

3030 IF Y<~17 THEN X=l ELSE X--2 

3040 TI$(Y)=MID*<B*<X) , Z«l5+3/ 12 

) sEL(Y)=RSC(MID*(B*(X) ,Z*15+2,1 ) 

> 

3050 Z=Z+ls IF Y=17 THEN Z=8 

3868 NEXT Y 

3580 D=64: FOR X=l TO 10sIFEL(X) 

=255 THEN TI$(X)="trilha vazia" 

3510 X*=RIGHT*CSTR*(X) ,2) 

3520 PRINTED r X*; :PRINT<i'Dr3,TI*( X 

) r 

3538 D=D+32:NEXT X 

3548 D=88 s F0RX=28TG34 ; IFEL ( X ) =25 

5THENTI*(X)="trilha vazia" 

3538 X*=RIGHT*(STR*(X) 72) 

3363 PRINTQD/X*; sPRIW<3D + 3/TI*<X 

) ; 

3578 D=D+32:NEXTX 
3560 RETURN 
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PROGRAMA EDUCATIVO 



Vamos aprender matematica? 



ADIVINHAO - CP 400 COLOR 16 Kb RAM 




Este e um programa educativo para 
criancas que estao iniciando o aprendi- 
zado dos mimeros. Sem "decoreba", mas 
desenvolvendo o raciocinio infantil, a 
crianca aprendera brincando o valor nu- 
merico de 1 a 100. 

Por exemplo: o seu computador pes- 
soal escolhera um niimero qualquer e, 
atraves de pistas, a crianca devera dizer 
qual o mimero correto. Vamos supor que 
o niimero escolhido seja X (este niimero 
nao aparecera no video) e as pistas, as se- 
guintes: "o niimero escolhido e menor que 



81, divisivel por 2, multiplicador 10 e 
maior que 78". Qual o niimero escolhido 
pelo seu CP 400? 

Acertou? Entao aparecera no video a 
quantidade de tentativas que precisou pa- 
ra acertar o niimero e tambem a media do 
jogo inteiro. Para jogar este programa, 
aumente o volume do seu televisor, pois 
a cada mensagem se ouvira um som. To- 
dos os comandos e instrucoes necessarias 
sao dadas pelo computador. Aproveite o 
desafio e tente diminuir cada vez mais a 
media de acertos. OK? 



20 
30 

H0 
50 

60 
70 
80 
90 

100 
11.0 

120 
130 

140 
150 

160 

170 

180 

LR P 

190 

200 

210 
220 

230 
2MB 

250 
0" 



o 



x f-1 D V 1" N H fl * 
x PROLOG I C A * 

* CP--400 * 

x x- x x x x x x x x x x xxx x x x x x x x x x x x x x 

LERRsCLS 

OR PK=102M TO 1535 

=RND<255) 

F C<128 THEN 80 

POKE PKiC 

NEXT PK 

PRINT®96," " 

PRINT® 128," " 

PRINT® 137 r"RLT0/BRIX0" 

PLRY"T5 ; C ; D ?E : F s P5 : E ; F" 

PR I NT® 160," " 

FOR ! ="j TO 1000 s NEXT L 

pRINT®130,"PRESS:i:ONE UMR TEC 

/ COMECRR" 

fl^lNKEY* 

IF R*="" THEN 190 

N=RND(100) 

P=P+1 

PRINT«l28r" " 

SOUND 200 rl 
PRINT®135r"RDVINHE MEU NUMER 



LINE INPUT G* 
T~T+1:TT=TT+1 
PRINT®160," " 
G=VRL.(G$> 



270 

280 
290 

300 PRINT®128 
310 
RLT 



IF G>N THEN PR I NT® 130, "MUIT0 
0, TENTE DE NOVO"! GOTO 590 
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320 


IF G<N THEN 


PR I NT® 130," 


HUITQ 


BflIXO,TENTE DE 


NOUO"sGOT0 


590 


330 


FOR L-J.37 TO 147 




340 


PRINT®LrCHR*(255> 




350 


FOR LL-1 TO 


50; NEXT LL 




360 


NEXT L 






370 


for L«l TO 


T 




380 


PR I NT® 1 20 , " 


11 




390 


FOR LL-1 TO 


50 s NEXT LL 




400 


PRINT®137," 


UOCE OCERTOU 


" 


410 


SOUND 200,1 






'420 


E0R LI>1 TO 


100 5 NEXT LL 




430 


NEXT L 






440 


PR I NT® 128," 


11 




450 


PR I NT® 129," 


VOCE CONSEGUIU 


"sT; 


"TENTHTIVRS 


II 




460 


FOR L = l TO 


2000: NEXT L 




470 


PRINT®129," 


SUR MEDIR E" 


DE" 


U80 


PRINT®1 V 60," 


II 




490 


PW=INT(TT/P 


) 




500 


PRINT®160,RV;"TENTflTIVRS POR 


JOGO" 




». 


510 


SOUND 200,1 






520 


FOR L=l TO 


2000 s NEXT I.. 




530 


PR I NT® 128," 


11 




540 


PR. INT® 160," 


II 




550 


PR I NT® 134," 


INICIRREI 


JOGO 


RGORfl" 






560 


FOR L=l TO 


2000: NEXT L 




570 


T=0 






580 


GOTO 210 






590 


FOR L=i TO 


500 s NEXT L 




600 


GOTO 230 






610 


END 
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JOGO 



Como esta sua coordenagao motora? 



PEGALOGO 



■ . . . ■■ . . 



CP 400 COLOR 16 Kb RAM 



Nesse jogo voce tera que provar sua 
agilidade motora, alcancando, no menor 
tempo possfvel, um ponto especifico, ou 
seja, o ponto laranja tera que alcancar o 
ponto roxo em tempo recorde — sem atin- 



gir os limites do quadrado que restringe 
esta busca. 

Importante: para reinicializacao do jogo, 
digite RUN. Para movimentar o pon- 
to laranja, utilize as setas T i -»<-. 



10 ' x x x x x x x x x x x x x x x x x x x x x x x x x x x x 
20 'x P E G A L G * 
30 'x PROLOG I CO X 

40 'X CP-400 * 

50 'XX X X X X * X X X X X X X X X X X X X X X X XXX X x 



60 

70 

80 

90 

100 

110 

128 

130 

ma 

150 
160 
170 

180 
190 

200 
210 
220 
230 

240 
250 

260 
270 
280 
290 

300 
310 
320 
330 

340 
350 

360 
370 
Y,7 
380 
390 
MW0 
410 
M20 



CLS<0) 

^500 

FOR 0=1 TO 32 

M$=M$+CHR$<128) 

NEXT A 

FOR fl=J TO 32 

A$=A*+CHR*<207) 

NEXT A 

B$=CHR*<207) 

C$=CHR*<128) 

FOR A----32 TO 416 STEP 128 

PRINTGA,At; 

NEXT A 

FOR A=32 TO 416 STEP 32 

FOR B=0 TO 31 STEP 8 

PRINTGA+BrB*? 

NEXT B 

PRINTGA+31,B$;; 

NEXT A 

FOR A==4 TO 28 STEP 8 

PRINT€160+A..Ct>; 

PRINTG288+A,C$; 

NEXT A 

PRINT@232,LEFT*(M$., 17) ; 

0=32 

B=14 

RESET <X,Y) 

SET(A,B,8> 

X=RND(60)+2 

Y=RND<23)+2 

IF X=A AND Y=B THEN 340 

IF POINT <X,Y><>5 THEN SET<X, 
) ELSE 340 

TIMER=0 

IF TIMER=>V THEN 610 

SET<A,B,8) 

IF fl=X AND B~Y THEN 480 

M=0 



430 N=B 

440 IF<PEEK<341)OND8)=0ONDPQINT< 

A r B- 1 ) <>5THENB=B~ 1 ELSE I F ( PEEK ( 34 

2 ) AND8 ) --0ANDPOINT < A , B+l ) <>5THENB 

=B+1 ELSE IF < PEEK < 343 )AND8)=0ANDPO 

INT(A-l r B)O5THEN0=A-lELSEIF(PEE 

K < 344 ) AND8 ) =0ANDPOINT ( + 1 ,B) <>5T 

HENA^A+1 

450 RESET(M,N) 

GOTO 390 

REM 

PRINTC30,M*? 

PRINTG0,"VOCE PEGOU !"y 

J=J+<V-TIMER> 

PRINTG480, "PLACAR EM MILESIM 
" ,"STR*(J) + "000"j 

FOR t-1 TO 2 



SOUND 
SOUND 
SOUND 
SOUND 



460 
470 
480 
490 
500 
510 
OS: 
520 
530 

540 
550 
560 
570 

580 
590 

600 
610 
NTO 
620 

630 
640 
650 
66Q 

670 
680 

690 

700 

710 
720 

730 
ONTO 

740 FOR T=l 
750 NEXT T 
760 IF S=5 
TOO, "PONTO 
480, "MAS 
*( J)+"800". 
TO 760 ELSE 
770 END 



218,1 
213 rl 
204,2 
193,2 
176,4 



SOUND 

NEXT T 

P-P+1 

GOTO 710 

PRINTQ0, "TEMPO 

ESCOPOU"; 

S=S+1 

FOR T-1 TO 5 

SOUND 204,1 

FOR G=l TO 100 

NEXT G 

SOUND 32,1. 

EOR G=J. 



ES60TAD0.0 PO 



NEXT G 

NEXT T 

PRINTG0. 

V-V-5 

PRINTG0, 

~"?S 



TO II 



M* 



"PLACAR: V0CE-"yP?"P 

TO 1000 

THEN PRINTS©, M*?:PRIN 
PREVALECE. . . " ; : PRINTS 
PLACAR EXATO E's"?STR 
•.SOUND RND(13)X8,1:G0 
320 
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CONTROLS DE ESTOQUE 



CP 200 16 Kb RAM 



i 

2 

3 

4 

5 

.10 

20 

30 



Vamos democratizar o seu GP? 



Quando seu filho for a escola ou esti- 
ver dormindo, pegue o CP 200 e demo- 
cratize sua utilizacao. Para aju- 
da-lo nesta ardua tarefa, a CPs desenvol- 
veu um programa que realiza um eficiente 
controle de estoque domestico, possibi- 
litando o registro de 10 a mais itens. 

Para cada item, ou produto, e neces- 
sario uma descricao, quantidade e preco, 
sendo que o computador, automatica- 
mente, codif ica cada informacao para fu- 
turas consultas ou alteracoes. 

Apesar de, na listagem, a quantidade 
de itens a estocar estar limitada em dez, 



voce podera aumentar ou diminuir pelo 
mimero que quiser, dependendo de suas 
necessidades. Paratanto, basta substituir 
o valor 10 das linhas 10, 20 e 40 do pro- 
grama pelo mimero de itens que desejar. 
Mas, atencao: na linha 10 do programa 
existem dois valores 10, sendo que voce 
devera substituir somente o primeiro. Pa- 
ra facilitar a operacao desse Controle de 
Estoque, todos os comandos e instrucoes 
necessarios aparecem no video. 

Depois dessa tarefa domestica, nao 
monopolize o computador! 

Lembre-se que ele e de todos. 



'* CONTROLE DE ESTOQUE * 
'* PROLOGICA * 

' * CP-200 * 

' #*#*#**##***#*#####**■*•**•**•** 
DIM E*(10,10) 
R(10) . 
Y=0 



DIM 

LET 

40 DIM Q(IO) 
50 CLS 

PRINT AT 



A, 7; "CONTROLE DE ESTOQ 

EST 



7,0; "ESTOQUE RTUAL 

ITEMS" 

9,0;"DESEJA ALGUMA LIS 



60 

UE" 

70 PRINT RT 

R COM ";Y5" 

SO PRINT RT 

TRGEM (S/N)?" 

90 INPUT P* 

100 IF P$="S" RND X=0 THEN GOTO -90 

110 IF P*="N" THEN SOTO 130 

120 G0T0270 

130 PRINT RT 11,05 "DESEJR ESTOCRR' 

QURMTOS ITEMS" 



140 
150 



INPUT Y 

FOR N=l TO Y 
160 CLS 

170 PRINT RT 2,4: 
ISO PRINT RT 4,4i 



"COD I GO: ";N 
"DESCREVR R PECfl; 



190 INPUT E*(N) 

200 PRINT RT 6 , 4 ; "QURNTIDRDE : 

210 INPUT R(N) 

220 IF R(M)=0 THEN GOTO 270 

230 PRINT RT 3,4; "PRECO: " 

240 INPUT Q(M) 



250 CLS 

260 NEXT N 

270 CLS 

230 PRINT RT 2, 7 ; "CONTROLE DE ESTO 

QUE" 

290 PRINT RT 7,7;"C0DIG0 PflRfl CONS 

ULTR : " j 

300 PRINT RT 20,1;"DIGITE PRRR 

MENU" 
310 INPUT N 
320 CLS 

330 IF N=0 THEN GOTO 70 
340 IF N>Y THEN GOTO 440 
350 PRINT RT 2 , 1 5 "DESCRICRO : " 5 E* ( 
M) 

360 PRINT RT 5,l;"C0DIG0";TRB 15 ;N 
370 PRINT RT 3, 1 ; "QURNTIDRDE" 5 TRB 
15;R(N) 

330 PRINT RT 10, 1 ; "PRECO" ; TAB 10;" 
*" 5THB 155Q(N) 

390 PRINT RT 14,l;"F0RRM VENDIDRS 
QURNTRS PECRS ?" 
400 INPUT Z 
410 LET R(N)=R(N)-Z 
420 CLS 
430 GOTO 270 
440 CLS 

450 PRINT RT 10,2;"C0DIG0 DE PECR 
IMEXISTENTE " 

460 PRINT RT 12,.2;"FACfl NOVR CONSU 
LTR" 

470 PAUSE 150 
430 CLS 
490 GOTO 70 
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EQUAgAO DO 1.° GRAU 

Teste sua capacidade logica 

e matematica 



CP 200 16Kb RAM 



A relacao informatica/educacao ca- 
da vez mais se solidifica, demonstrando 
que as possibilidades educacionais, com 
a computacao, desenvolve a capacidade 
logica e tecnica tanto do estudante como 
dos professores. 

Para introduzir o aluno nesta area, a 
Computadores Pessoais vem desenvol- 
vendo (e publicando, na medida do pos- 
si'vel) programas que possibilitam dois 
aspectos fundamentais: a tecnica de com- 
preemsaodosoftware,apartirdalistagem 
na Basic, como o simples teste de solu- 



cionar o problema apresentado pelo 
programa. 

No caso deste problema de Equagao 
do l.°grau, por exemplo, voce tera que de- 
terminar a raiz da equacao, encontrando 
o valor da variavel X. Durante a execu- 
cao do programa, seu CP 200 solicitara 
o valor dos coeficientes A e B. Apos 
digita-los, o computador dara ao final da 
execucao o valor de X. 

Para facilitar a operacao do programa, 
todos os comandos e instrucoes necessa- 
rios aparecerao no video. 



1 ' ****##**##'******^##*#"******-» : 



••7 


' * 


EC 


HJP 


CRO 


DO 1- 


GRRU 


•X- 


3 


'* 






PROL 


OGICP 




# 


A 


'* 






GP- 


200 




* 


5 


' ** 


************************** 


20 


CL. 


ERR 












30 


CL 


w> 












A0 


PR 


INT 


RT 


"? 

u»0 


» "*.J(..jJ..^.^.J < .4 i< ..)(.^.^. 


■it-* #■*■«••*•<(• 


***** 


**** 


■ •*■ M- 


1.1 








A 5 


PR 


INT 


AT 


p v,: 


S "* 







50 PRINT AT 10,3;"* EQUACAO DO PRI 

ME IRQ 6RAU *" 

55 PRINT AT 1.1,3?"* 

*" 
60 PRINT AT 12 , 3 ; "************#*## 
#**■*****#** *.- " 

65 PRINT AT 20,2;"DIGITE TECLA <C> 

P/ CONTINURR" 
70 LET A*=INKEY$ 
75 INPUT R$ 

SO IF m^"" THEN GOTO 70 
90 CLS 

100 PRINT RJ 3,9?" FORMULA GERAL " 
1 1 P R I N T A T 5 , 1 1 ", " * * * * * # * * * * " 
120 PRINT AT 6,11;"* *" 
130 PRINT AT 7,11;"* AX+B=0 *" 
1AO PRINT AT 3,1.1;"* *" 
150 PRINT AT 9,11;"**********" 
160 PRINT RT 13,3;"DIGITE GOEFIC 
IENTE R" 



165 INPUT A 

163 PRINT AT 13,26?"= ";R 

170 PRINT RT 15,3;"DIGITE GOEFIC 

IENTE B" 

175 INPUT B 

173 PRINT RT 15,26;"= ";B 

130 PRINT AT 20,3 5 "DESEJA ALGL1MA C 

ORRECRO (S/N)" 

190 INPUT R$ 

200 IF R1i="S" THEN G0T090 

210 LET X=--B/fl 

220 CLS 

225 PRIN" r RT 2, A ; " **************** 

******* *** 11 

227 FOR 1=3 TO 12 

223 PRINT RT I,A?"*";RT 1,29;"*" 

22^ NEXT I 

230 PRINT RT 13 , A ; "*************** 

********* * * ' ' 

232 PRINT RT A, 13?" BOLUCRO " 

233 PRINT AT 6,1A!" DESTA " 
236 PRINT RT 3,13;" EQURCAO " 
2 AO PR I NT AT 1 , 1 5 ?. " X = " ; X 

250 PRINT AT 11,13;"=========" 

260 PRINT RT 18, A? "DESEJA CONTINUA 

R (S/N) " 

270 INPUT E$ 

280 IF E$="S" THEN GOTO 90 

290 CLS 

300 STOP 
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GURSOS _ 




DE 







LICAO VII 



Nesta li gao, Marilena Occhini Siviero da sequencia 

ao nosso Curso de Basic explicando as 

1 — 

instrugoes READ/DATA nas fungoes 
de armazenamento e recuperagao de dados 



Para melhor avaliar a impor- 
tancia das instrucoes READ e 
DATA no armazenamento e re- 
cuperacao de dados de urn programa, 
consideramos fundamental que seus 
conceitos e definicoes assegurem um 
perfeito entendimento a todos: 

DATA — Permite o armazenamen- 
to de dados dentro do proprio progra- 
ma. Esses dados sao acessados no decor- 
rer do programa pela instrucao READ. 
Um mesmo programa pode conter va- 
rias linhas de dados (como sao chama- 
das as linhas de programa que usam a 
instrucao DATA), formando uma uni- 
ca lista de itens. Os itens sao lidos se- 
quencialmente, ou seja, nao se pode 
"ler" um determinado item no meio da 
lista sem que o precedente tenha sido 
acessado. As linhas de dados podem ser 
colocadas em qualquer ponto do progra- 
ma e nao precisam ser consecutivas. Em 
geral, sao colocadas todas juntas no ini- 
cio ou no final do programa, por uma 
simples questao de documentacao. 

READ — Tern como funcao instruir 
o computador a ler valores na lista de 
dados (instrucao DATA) e armazena-los 
nas variaveis correspondentes, na ordem 
em que aparecem na lista de variaveis. 
O tipo de cada dado lido deve coincidir 
com o tipo da variavel no qual sera ar- 
mazenado — caso contrario ocorrera 
um erro e o programa sera interrompi- 
do. A leitura da lista de dados e sequen- 
cial, o que quer dizer que os dados de- 
vem ser lidos na ordem em que apare- 
cem na lista de dados. Se for tentado ler 
mais dados do que existem na lista de 
dados do programa, ocorrera um erro 
de "falta de dados" e a execucao sera 
interrompida. O programa a seguir ilus- 
tra uma aplicacao ti'pica das instrucoes 
READ e DATA. 



700 PRINT"NOME", "IDADE" 

710 READ NS 

720 IF N$ = "FIM" THEN PRINT'FIM 

DA LISTA:END 

730 READ IDADE 

740 IF IDADE< 18 THEN PRINT 

NS, IDADE 

750 GOTO 710 

760 DATA "LIMA,J0A0",30, 

"BARBOSA,A.M.",20 

770 DATA "SILVA,JOAO",15," 

APARECIDA, MARIA", 21 

780 DATA "TERRA,RENATO",17, 

FIM 

Este programa localiza e imprime to- 
dos os nomes de pessoas cuja idade se- 
ja inferior a 18 anos. Observe o uso da 
string "FIM" para marcar o final da lis- 
ta de dados. Esse recurso e muito util 
em lista cujo niimero de itens seja des- 
conhecido. 

VALOR DE VARIAVEIS 

Nas licoes passadas, vimos duas ma- 
neiras de atribuir um valor a uma varia- 
vel: atraves da instrucao INPUT e da 
instrucao LET. Mas existe uma outra 
maneira: atraves do par de instrucoes 
READ e DATA. Observe o programa: 

10 READ X 

20 PRINT"X = ";X 

30 GOTO 10 

40 DATA 16,10,9,8.25,98 

50 END 

Ao roda-lo, voce obtera: 

X = 16 

X = 10 

X = 9 

X = 8.25 

X = 98 

OUT OF DATA IN LINE 10 



A instrucao READ ordena ao com- 
putador que leia um valor contido na 
instrucao DATA. Cada vez que o com- 
putador executa o ciclo, le o valor se- 
guinte ao valor executado no ciclo an- 
terior. A mensagem "OUT OF DATA 
IN LINE 10" indica que nao existem 
mais dados para serem lidos. 

A maneira correta de se escrever uma 
instrucao DATA e: 



60 DATA 

I I 



3, 4, 7, 8.5, 0.25 

n 



J 



Niimero de 
linha 



Todos os valores 

separados por 

virgula 



Ultimo valor. 

Nao pode ser segliido por 

virgula 



A instrucao DATA, como qualquer 
•instrucao Basic que lida com valores nu- 
mericos, aceita mimeros inteiros, niime- 
ros em ponto flutuante e mimeros em 
notacao cientifica — tanto positivos co- 
mo negativos. Assim, podemos ter: 

75 DATA 3,-5,0.25,-7,41 E8 

A instrucao DATA podera ocupar 
outras posicoes no programa: 

10 READ X 

15 DATA 16,10,9.8.25,98 

O programa podera ter mais de uma 
instrucao DATA, como no exemplo que 
se segue: 

10 PRINT "PROGRAMA PARA O 
CALCULO DE CRESCIMENTO DE 
POPULACAO" 

15 READ P,R 

20 DATA 1000, 2.5 

30 PRINT "A POPULACAO INICIAL 
E";P 

40 PRINT "A TAXA DE CRESCI- 
MENTO E "; R; "%" 

50 PRINT 

60 READ N 

70LETQ = P 

80 DATA 10, 20, 50, 100 

90 FOR 1 = 1 TO N 
100LETQ = Q*(1+R/100) 
110 NEXT I 

120 PRINT "A POPULACAO FINAL 
APOS "; N; "ANOS E "; Q 
130 GOTO 60 

As linhas 20 e 70, neste programa, 
podem ser substituidas por uma unica 
instrucao DATA, mas sem determina- 
dos computadores isto nao pode ser 
feito. 

Na proxima licao, apresentaremos 
um estudo importantissimo em compu- 
tacao: o conceito de sub-rotina. 
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COMPUTADOR 



REVELA SEGREDOS NUCLEARES 




Com o auxilio do terminal minitel 
(anuario da industria eletronica france- 
sa) e de um tecnico em informatica, os 
editores do jornal satirico (varices Le Ca- 
nard Enchaine realizaram uma facanha 
que vai ficar nos anais da historia da in- 
formatica: conseguiram entrar nos circui- 
tos dos computadores da Cisi, filial da 
Agenda de Energia Atomica da Franca, 
revelando aos leitores iniimeras informa- 
coes confidenciais e de seguranca de 
Estado. 



Entre outros documentos de seguran- 
ca nacional publicados pelo Le Canard, 
estao os projetos de construcao de reato- 
res nucleares, dados sobre testes com 
bombas atomicas no oceano Pacifico e 
ainda documentos altamente confiden- 
ciais que dizem respeito a pianos de utili- 
zacao de raios laser na fabricacao de 
armas. 

Mas o jornal, nao se contentando em 
publicar as informacoes, ainda deu aos 
seus leitores a chave de acesso aos com- 
putadores da Cisi. Ou seja, a receita para 
se fazer pirataria com os computadores 
da defesa nacional francesa. 

Segundo Luis Marie Horeau, um dos 
editores do jornal, "nao existe nada mais 
simples que entrar clandestinamente na 
rede de informatica da Agenda de Ener- 
gia Atomica. Basta saber o nome e o co- 
digo de um dos assinantes do banco de 
dados da Cisi. Depois, o computador for- 
nece a lista dos outros clientes que utili- 
zam o mesmo banco de dados". 

No entanto, a "brincadeira" do Le Ca- 
nard pode custar muito caro: Gerard 
Drean, diretor da Cisi, afirmou que pre- 
tende processar o jornal — apesar da di- 
recao da Cisi procurar minimizar a im- 
portancia do escandalo, alegando que a 
maioria dos documentos divulgados nao 
eram importantes. 




engenheiro eletronico e professor da FEI, Carlos 
Sanchez Favali, esta desenvolvendo uma arquitetura 
para terminal de Alta Resolugao com sistema para 
transformagao de coordenadas. Segundo ele, a ideia 
e tornar a operagao de processamento mais agil, criando 
arquitetura de hardware para manipulagao de figuras. 

O projeto envolve pesquisas com hardware e software e 
levara dois anos para alcangar seu objetivo, sendo finan- 
ciando pela Fundagao de Ciencias Aplicadas. 



Documento do MBI 

O Movimento Brasil Informatica (MBI) 
e a Fundacao Pedroso Horta entregaram 
ao presidente Tancredo Neves um docu- 
mento contendo sugestoes para democra- 
tizar as decisoes sobre a Polftica Nacional 
de Informatica e Telecomunicacoes. 

Segundo Adrian Levinson, coordena- 
dor do setor de Telematica da Funda- 
cao Pedroso Horta, o documento con- 
tem os seguintes pontos basicos:-"Uma 
lei para software; a formacao de um 
fundo para a Universidade, com o ob- 
jetivo de criar cerebros para desenvol- 
ver tecnologia nacional; Ids para prote- 
ger a privacidade do cidadao, buscan- 
do uma gestao mais democratica dos 
bancos de dados; a questao dos impac- 
tos sociais na automacao; e uma utili- 
zacao da informatica, quese deve pres- 
tar a resolver os principais problemas da 
populacao, como Saude, Transporte e 
Educacao". 



Educacao 




Osecretariode Educacao de Sao Pau- 
lo, Paulo Renato Costa Souza, criou, no 
imcio do ano, o Comite Assessor de In- 
formatica na Educacao com o objetivo 
de assessorar a Secretaria em relacao ao 
uso da informatica na area. O comite 
devera estudar as modalidades de utili- 
zacao, equipamentos adequados, curri- 
culum apropriado, desenvolvimento de 
software especifico, treinamento de pro- 
tessores experiencia da rede privada e 
.Jmatenal didatico. 
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RS 232C 

acopla 
sintetizador de voz 




Ja e possivel adquirir no mercado 
americano um sintetizador de voz capaz 
de ser acoplado a um computador atra- 
ves de uma interface serial RS 232C e 
dotado de um extenso vocabulario. 
Trata-se do Calltext 5050 que, na reali- 
dade, e uma versao atualizada do algo- 
ritmo de conversao fonica de um texto 
escrito, operando em conjunto com uma 
interface telefonica modular completa. 

Proprio para sistemas interativos de 
usuarios locais ou a longa distancia, o 
Calltext 5050 permite ainda solicitacoes, 
avisos e respostas fonadas. Basta um 
telefone de teclas comum para que se 
possa ter acesso a qualquer computador 
equipado com esse periferico. 

A interface telefonica do Calltext 
5050 detectara e gerara sinais bitonais 
de varias freqiiencias e ainda fornecera 
os controles necessarios para res- 
ponder como fazer chamadas. A ligacao 
a rede telefonica e efetuada por inter- 
medio de um conector modular padrao 
RJ-11. 

O modelo a venda aceita ate tres con- 
versacoes simultaneas. Entretanto, em 
sua configuracao mais simples, a unida- 
de contara apenas com um canal para 
comunicacao e custara no varejo 2 975 
dolares. Cada expansao sera comercia- 
lizada por 2 700 dolares. 



as mcL-ias 



Voce sabe quais as especies em extincao no 
Brasil? E do leao, o que voce sabe dele? 
A estas e outras milhares de perguntas curio- 
sas ou cientificas, a Fundacao Par que Zoo- 
logico de Sao Paulo passou a responder de 
forma mais rapida e eficiente atraves da com- 
putacao. Com um CP 500 e uma P 500, doa- 
dos pela CP Computadores Pessoais, a Fun- 
dacao catalogou 126 especies de aves, mami- 
feros e repteis para pesquisas escolares e 
cientificas. 



O dlcool e a informdtica 



A utilizacao da informatica no setor 
alcooleiro podera proporcionar um au- 
mento na producao brasileira de alcool 
da ordem de 1 bilhao de litros anuais, 
sem necessidade de ampliar as instala- 
coes ja exist entes e sem afetar a mao-de- 
obra atualmente empregada. 

Este e somente um dos exemplos que 
serao levados pelo professor Jose Israel 
Vargas a primeira reuniao do Conselho 
Consultivo Cientifico e Tecnol6gico, da 
Organizacao Internacional do Trabalho. 
Ele acaba de ser convidado para integra- 
lo como membro efetivo e na condicao 
de linico cientista latino-americano a ter 
assento no Conselho. 

A aplicacao da informatica no setor 
alcooleiro foi desenvolvida atraves de 
um projeto conjunto entre a Secretaria 
de Tecnologia Industrial do MIC e a ex- 
tinta Digibras.Os dois orgaos seleciona- 
ram uma usina em Sao Paulo e realiza- 
ram toda a programacao, desde o rece- 
bimento de cana-de-acucar ate o contro- 
le de qualidade do alcool. 




Ao final do projeto, ficou demons- 
trado que atraves da automacao e con- 
trole naquela usina foi possivel elevar-se 
a produtividade em cerca de 10%, utili- 
zando o mesmo equipamento e sem ne- 
cessidade de haver dispensa de mao-de- 
obra. 

Esse projeto foi escolhido pelo pro- 
fessor Vargas para ser levado ao Con- 
selho porque "e um exemplo marcante 
de que a informatica deve ser incenti- 
vada no Pais, pois demonstra ser um 
poderoso instrumento de racionalizacao 
do trabalho, sem ser um substituto do 
Homem". 



Representatividade do Con in 




Edson Fregni, 
da Abicomp 



Apesar da mudanca de governo, das 
controversias do setor e dos debates em 
torno do novo Ministerio das Comuni- 



cacoes, durante cinco anos serao os se- 
guintes os oito representantes do setor 
privado no Conselho Nacional de Infor- 
matica: Edson Fregni (Abicomp), Eduar- 
do Guy de Manuel (Assespro), Henri- 
que Costabile (Sucesu), Jose Jairo Fer- 
reira Cabral (APPD/Nacional), Eugenio 
Staub (confederacoes nacionais da in- 
dustria e do comercio), Lourenco Ferrei- 
ra do Prado (confederacoes nacionais 
dos trabalhadores na industria, no co- 
mercio e credito), Claudio Zamitti Mam- 
mana (SBPC e Sociedade Brasileira de 
Computacao) e Sergio Ferraz (OAB e 
Instituto dos Advogados Brasileiros). 
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Voce desenvolveu, digitou inteirinho ou, finalmente, 
conseguiu fazer uma copia daquele programa tao espe- 
rado, que um amigo lhe emprestou. Para sua tristeza — 
e ate desespero — ao executar esse programa, o pior acon- 
tece: ele nao e carregado corretamente, ou, pior ainda, 
simplesmente nao e carregado. Os motivos sao varios, 
resumidos num s6: leitura do disquete. Causas? A mais 
comum e o proprio disquete, que poderia nao estar 100% 
perfeito quando formatado, mesmo que a mensagem te- 
nha sido, na ocasiao da formatacao, "00 Trilhas Ruins". 
■ Isso pode ser evitado se a verificacao dos setores for- 
matados for mais critica. Como conseguir? Eis a dica: 
sempre na condicao DOS 500 Ativo, digite: 

PATCH *7 (ADD = 5BEE,FIND = E5, CHG = 5B) 
< ENTER > 

A selecao dos disquetes sera mais cuidadosa; talvez se- 
ja necessario descartar alguns deles, mas e preferivel faze- 
lo antes de perder dados ou programas valiosos. Con- 
corda? Dica da dica: o PATCH nao fara efeito se voce 
nao reinicializar o CP 500. 

Para o programador em Basic, uma dica assustadora: 

Grave o programa que estiver atualmente em uso no 
seu microcomputador antes de experimentar esta dica. 

Digite POKE 16405,254 < ENTER > . O que aconte- 
ceu? Nada? Entao digite qualquer coisa. Qualquer tecla! 
Viu? Sem teclado! Isto pode ser bem util durante a leitu- 
ra de dados do disco, quando alguns acidentes podem 
acontecer; para reativar o teclado, dentro de um progra- 
ma, use POKE 16405,1. E agora? Bem, se voce execu- 
tou o primeiro POKE como foi indicado, so ha uma 
alternativa: o botao < RESET >. 



Diretorio, pagina por pagina 

Quando existem muitos arquivos em um disquete, e 
se quer ver o diret6rio do mesmo, o que acontece? To- 
dos os arquivos existentes serao mostrados na tela, e a 
menos que se use o comando < @ > , os primeiros pro- 
gramas nao serao vistos de uma s6 vez. Para que o direto- 
rio seja mostrado, pagina por pagina, sempre em DOS 
500 Ativo, digite: 

PATCH *6 

(ADD = 616D.FIND = CD8861B7C8FE40,CHG = 3A8 

03FD620C8CD) 

< ENTER > 

Digite o comando <DIR> < ENTER >. Para pas- 
sar para a pagina seguinte do diretorio, simplesmente te- 
cle < ENTER > de novo. Melhor assim, nao? 

Para o programador em BASIC, ai vai algo que pode 
ser usado como sub-rotina: 

10CLS 

20 FORA = 0TO30STEP.02 

30 R = 4.5 

40 SET(64 + 7*R*COS(A),24 + 3*R*SIN(A)) 

50 NEXT 

60 GOTO60 

Substitua a linha 60 por um loop de retardo, seguido 
de RETURN. 

Ate o pr6ximo niimero! 

P. Fulvio G. Del Picchia 




TELEMATICA 



A Empresa Brasileira de Telecomunicagoes (Em- 
bratel) assinou convenio com a Escola Superior de 
Guerra (ESG) para a constituigSo de um banco de 
dados com as quase cinco mil teses e trabalhos, 
sobre realidade brasileira e problemas economi- 
cos, daquela instituicao. Em contrapartida, a Em- 
bratel cedeu um microcomputador CP 500 para que 
os alunos da escola tenham acesso ao sistema Ci- 
randao e aos bancos de dados Amanda, do Serpro, 
e Prodasen, do Senado Federal. 

AI6m deste futuro banco de dados, os cirandei- 
ros tern acesso a diversos assuntos disponiveis, 
atrav6s da rede montada pela Embratel. A Area de 
Saude — o Cirandao Saude — foi a primeira a fun- 
cionar, mas, ate maio, ja" devem estar a disposi- 
gao dos usuarios dados sobre economia, agrope- 
cuiria, legislagao, Amazonia, educagSo, cultura e 
turismo. 

O mais importante neste sistema § que as con- 
sulfas nao sao privile'gios de t6cnicos ou analistas 
de sistemas. Qualquer pessoa pode ter acesso ao 
Cirandao, para saber, por exemplo, quais as previ- 
soes em economia para o rendimento da poupan- 



ga, que leis regem o 13.° sal&rio ou, apenas, quais 
os melhores filmes da semana. AI6m disso, qual- 
quer computador ou terminal, acoplado a um mo- 
dem ligado a rede telefonica, pode transformer um 
usuario comum num membro da comunidade dos 
cirandeiros, que conta com os servigos b6sicos do 
sistema: mensagens pessoais e caixas postais pu- 
blicas, quadro de avisos e a teleconferencia, onde 
o usuario tern oportunidade de debater assuntos de 
seu interesse com outros integrantes do sistema. 

Mas o desenvolvimento da teiem&tica brasilei- 
ra, nao para somente nesses servigos. O video- 
texto tern alcangado virias possibilidades em to- 
das as cidades e Estados em que se torna presen- 
te, desde o seu langamento em Sao Paulo, no ano 
passado. E, assim como o sistema Cirandao, qual- 
quer usuario pode ter acesso as informagoes des- 
te servigo. 

No final de fevereiro, foi a vez de Brasilia fa- 
zer parte desta comunidade, contando inicialmen- 
te com 300 assinantes, niimero que poder6 chegar 
ate 2 000 no final do ano, segundo as expectativas 
da Telebrasilia. 
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a possibilidade de eficiencia e democratizagao nas telecomunicacoes 




Com o sistema Brasilsat, o 
pafs assegura sua vantagem 
continental e elimina as 
desvantagens da distancia. 



Apartir de agora, o Brasil nao tem mais 
desculpas: o Brasilsat I ja esta no ar. 
Ninguem mais podera argumentar as di- 
mensSes continentals do pais para res- 
ponsabilizar a falta de oportunidade nas comuni- 
cacSes ou a ausencia de possibilidades para reali- 
zacoes e solucoes era qualquer atividade ou neces- 
sidade social. A partir de agora, o satelite domes- 
tico Brasilsat I abre espacos para conquistas e de- 
senvolvimentos nas telecomunicacoes. 

Mas o que, realmente, pode fazer o Brasilsat I, 
este satelite mais parecido com uma lata aberta na 
boca? Nada de extraordinario para esta virada de 
seculo, a nao ser a integracao nacional, autono- 
mia nas telecomunicacoes, agilidade nas comuni- 
cagoes via telex, telefonia, fac-simile, comunicacao 
de dados, simultaneidade em radiofonia, transmis- 
sao de 24 programas de televisao; alem de outros 
meios, atraves de24 mil canais — os conhecidos 
transponders. 

Imagine as seguintes possibilidades: do centro 
da Amazonia, num vilarejo distante de qualquer 
area urbana, voce podera se comunicar — quer 
seja por telefone ou telex — ou com outro vilare- 
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jo perdido deste mundo ou com Sao Paulo ou com 
Nova Iorque. E so escolher ou — fundamental- 
mente — necessitar. 

Durante as grandes enchentes que ocorreram no 
ano passado no sul do pais, a primeira coisa de 
que os flagelados e as equipes de socorro senti- 
ram falta foi justamente da comunicacao. Redes 
de telefone e telegrafo ficaram submersas. Com 
o Brasilsat, este problema nao se repetira: em pou- 
cas horas pode-se transportar, ate de helicoptero, 
para qualquer local, uma pequena estacao recep- 
tora dos sinais do satelite para comunicacoes de 
urgencia. ' 

Outra possibilidade e a telemedicina: cirurgias 
poderao ser realizadas nos mais distantes centros 
sob a supervisao monitorizada de especialistas de 
outra regiao. A teleeducacao, num pais de 60% 
de analfabetos, podera modificar o perfil da so- 
ciedade brasileira. Isso, sem contar com as possi- 
veis trocas de informagoes e conhecimentos, 
atraves das teleconferencias, em todas as ativida- 
des profissionais, culturais e sociais. 

Para as grandes empresas, o Brasilsat vai tra- 
zer tambem grandes possibilidades de expansao e 
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economia. Os bancos, por exemplo, que tern muito 
volume de dados para trocar entre as diversas fi- 
liais, terao no satelite urn poderoso auxiliar: no 
sistema tradicional, os dados sao transmitidos a 
9 600 bps (bits por segundo). Com o Brasilsat, a 
mesma transmissao passa a 64 mil bps, ou seja, 
64 Kb por segundo. Essa rapidez permite que os 
arquivos de um CPD sejam transferidos para ou- 
tro em questoes de segundos, o que possibilita 
maior seguranca em casos de emergencia. Claro 
que tern alguns inconvenientes: se voce emitir um 
cheque da praca de Sao Paulo em Porto Natio- 
nal (norte de Goias), ele podera ser compensado 
em segundos... 

Ganha a agricultura, a climatologia, a meteo- 
rologia. A partir dos transponders equilibraremos 
a vantagem do tamanho com as desvantagens da 
distancia. 

Eficiencia e democracia 

O lancamento do Brasilsat I, no initio 
de fevereiro, representa muito mais que 
as possibilidades tecnologicas. Este sa- 
telite no espaco representa um importante passo 
— ou sua possibilidade — para tornar mais efi- 
cientes e democraticos os sefvicos de comunica- 
cao. O Brasilsat foi adquirido pelo Governo 
Federal; logo, este equipamento pertence a toda 
a Nacao. Sendo assim, nada mais legitimo que a 
sociedade participe na definicao de sua utilizacao, 
atraves do Congresso National, e exija eficiencia 
e acesso a este novo tempo das telecomunicacoes. 
A Lei de Telecomunicacoes Publicas dos Esta- 
dos Unidos, por exemplo, estabelece algumas nor- 
mas que possibilitam utilizacoes de satelites de 
telecomunicacoes por pessoas ou entidades que 
possam veicular informacSes de interesse publico. 
Por isso, alem de sabermos o que e, quando, 
onde e porque de um satelite domestico brasilei- 
ro, e bom que comecemos a refletir sobre o que 
esperamos e necessitamos dos servicos de teleco- 
municacoes em nosso pais, pois eles, de uma for- 
ma ou de outra, nos afetam, a todos. 

Especificagoes tecnicas 

O sistema Brasilsat e formado por dois 
satelites: o Brasilsat I e o Brasilsat II. Es- 
te segundo satelite domestico sera lanca- 
do, se tudo correr bem, em setembro pr6ximo e 
ficara na mesma orbita equatorial do primeiro, co- 
mo margem de seguranca para prevenir uma even- 
tual falha operational do Brasilsat I — que tera 
vida litil de oito anos. 
Os dois satelites sao dotados de 24 canais cada 




um, com capacidade para realizar 12 mil ligacoes 
telefonicas simultaneas e transmitir 24 programas 
de televisao. 

O Brasilsat I foi lancado da base especial de 
Kouru, na Guiana Francesa, atraves do foguete 
frances Ariane. Descreveu uma trajetoria em di- 
recao Leste, passando sobre o oceano Atlantico, 
seguindo a linha do Equador. A 500 quilometros 
da Terra, separou-se de Ariane. 

A partir dai, o Brasilsat I continuou sua traje- 
toria por sua propria conta, impulsionado por pe- 
quenos foguetes que ele traz em seu corpo, ate 
chegar a posicao de apogeu, ou seja, 35 800 qui- 
lometros da Terra. Desde o momento em que ele 
se separou de Ariane, o Brasilsat I comecou a ser 
rastreado (procurado) pelas antenas do Centro de 
Operacoes do Sistema Satelite, da Embratel, que 
fica em Guaratiba, no Rio de Janeiro. 

Como ele esta girando junto com a Terra, a po- 
sicao definitiva do Brasilsat I e sobre a linha do 
Equador, na altura da regiao amazonica, mais pre- 
cisamente sobre a pequena cidade de Sao Gabriel 
da Cachoeira, sob controle exclusivo do Centro 
de Guaratiba. 

Com a operacao do Brasilsat I, inicia-se, de fa- 
to, a atuacao do Sistema Brasileiro de Telecomu- 
nicacoes via Satelite (SBTS), que comecou a ser 
montado em 1982. O proposito e assegurar ao pais 
condicoes tecnicas confiaveis para desenvolver um 
vasto programa de ampliacao das comunicacoes 
internas, a custos reduzidos. 

O Brasil, como um dos 109 paises signatarios 
do acordo Intelsat, alugava sete transponders do 
satelite internacional, a um custo anual de 7 mi- 
lhoes de dolares para comunicacoes externas e au- 
xilio as internas, sustentadas basicamente pelo sis- 
tema de microondas. Com o Brasilsat I, o Intel- 
sat sera utilizado somente para as comunicacoes 
inter nationals. Para economizar estes sete milhoes 
de dolares anuais, o Brasil investiu no sistema Bra- 
silsat aproximadamente 207 milhoes de dolares. 
Desse total, 122 milhoes de dolares equivalem ao 
preco dos dois satelites-; 58 milhoes de dolares pa- 
ra despesas de lancamento e o restante em seguro 
e construcao de um sistema terrestre de controle. 

O foguete e frances; o satelite, canadense, mas 
a operacao e brasileira. Cabe ao Brasil, entao, a 
mais eficiente utilizacao do sistema Brasilsat, que 
permitira tambem o surgimento ou ampliacao de 
diversos segmentos da industria de telecomunica- 
*coes e teleinformacao, incluindo o desenvolvimen- 
to de uma nascente industria de antenas parabo- 
licas, que permitirao a utilizacao direta das ima- 
gens do satelite — inclusive por pessoas fisicas. 
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IMPRENSA BRASILORA 



As possibilidades e potencialidades da relagao 



informatica/comunicacao tern sido levadas muito a serio ho Brasil 



Desde 1979 as grandes empresas jornalisticas vem pesquisando e 



introduzindo esta poderosa ferram enta em suas atividades, visando 
a agilizacao e a amplitude de seu produto basico: a informagao. 




A automatizacao da imprensa brasi- 
leira e uma realidade pioneira no hemis- 
f£rio Sul, pois desde 1979 varias empre- 
sas ingressaram nas pesquisas e implan- 
tacao da informatica, encontrando um 
novo caminho editorial. Hoje, quase to- 
das as grandes empresas jornalisticas 
trabalham a partir desse avanco tecno- 
logico, como a Folha de Sao Paulo, Edi- 
toraAbril, Gazeta Mercantil, OEstado 
de S. Paulo e Jornal do Brasil, entre 
outras. 

Para Gabriel Romeiro, presidente do 
Sindicato dos Jornalistas Profissionais 
do Estado de Sao Paulo, todo avanco 
tecno!6gico tern que ser conquistado pe- 
la imprensa, para que a informacao — 
seu produto basico — chegue sempre 
com melhor conteudo e eficiencia na dis- 
tribuicao para a populacao. "Mas tudo 
depende de como e" utilizado esse avan- 
co tecnologico", ressalva Gabriel. 

Para ele, a informatica tem que es- 
tar a servico e melhoria das condicoes 
de trabalho, tanto da empresa como do 
jornalista, "pois um computador jamais 
stfbstituira as habilitacoes profissionais 
do jornalista". 

O engenheiro Lacreta, encarregado 
do setor de computacao do jornal O Es- 
tado de S. Paulo, concorda com Gabriel 
Romeiro: "No Estadao, a redacao e sa- 
grada. Confiamos na qualidade de nos- 
sos jornalistas e s6 vamos implantar 
sistemas que os ajudem e nao que os 
substituam. Por isso, a implantacao da 
informatica no jornal O Estado de S. 
Paulo se desenvolve atraves de varios 
projetos, principalmente nos sistemas de 
videotexto e no processo produtivo". 

Ja a Folha de Sao Paulo automati- 
zou toda a redacao, com dois m'veis de 
terminais dedicados. Esta automatiza- 



cao redacional comeca nos terminais de 
segundo nivel, onde os reporteres digi- 
tam suas matirias, dao um titulo e um 
numero (c6digo) e passam seu material 
para o editor, que se utiliza do terminal 
nivel um para a edicSo final do jornal. 
Todo o processamento de textos na Fo- 
lha passa pela computacao, inclusive as 
pesquisas e arquivos, que ficam arma- 
zenadas num computador central. 

Simultaneidade na Gazeta 

No final de 1979, a Gazeta Mercan- 
til implantou no Brasil seu equipamen- 
to de "Laserit", importado dos Esta- 
dos Unidos. Para melhor utilizacao do 
sistema importou tambem o engenhei- 
ro Thompson, que ja havia implantado 
o mesmo equipamento nos EUA. Alem 
do equipamento "Laserit", pioneirismo 
da Gazeta Mercantil no hemisferio Sul, 
a empresa trabalha ainda com a compu- 
tacao como central de dados e no servi- 
co de videotexto. 

Para Luis Fernando Levi, diretor da 
Gazeta Mercantil, o objetivo do jornal 
e chegar o mais rapido possfvel ao lei- 
tor a nivel nacional, "por isso nao nos 
preocupamos com a impressao e sim 
com as matrizes, onde utilizamos a in- 
formatica" 

"Mas sequer estamos arranhando to- 
das as possibilidades e potencialidades 
da relacao informatica/comunicacao. 
Nao s6 em termos de agilidade como 
tambem na questao de sua amplitude. 
Todavia, sempre partimos da premissa 
que uma empresa de comunicacao vive 
da sua credibilidade. Essa credibilidade 
so e conquistada pela postura de todos 
que fazem parte da empresa: dos traba- 
lhadores a empresarios, e nao ha nada 




neste mundo que substitua a credibili- 
dade humana. Por isso, vamos sempre 
nos modernizar e utilizar de todos os 
avancos da informatica, mas jamais fe- 
charemos as fronteiras para a credibili- 
dade e expansao do Homem, do profis- 
sional", afirmou categoricamente Luis 
Fernando Levi. 

A t&nica da simultaneidade da Ga- 
zeta Mercantil e um processo que utili- 
za como elemento principal unidades de 
maquinas "Laserit" de transmissao de 
fac-similes. Uma delas transmite os ori- 
ginais das paginase as outras recebem r 
em um minuto e meio de operacao por 
pagina. A Gazeta Mercantil possui este 
equipamento em Sao Paulo, Rio de Ja- 
neiro, Porto Alegre, Salvador e Brasi- 
lia. A ligac5o entre as capitals e feita 
atraves de microondas e canal de TV, 
operados pela Embratel. A transmissao 
resulta, simultaneamente, em cinco ma- 
trizes para impressao, ou em cinco fo- 
tolitos, nas cinco cidades. 

Nesta etapa, o jornal esta pronto pa- 
ra "rodar" nas cinco pracas. A trans- 
missao funciona tambem em mao du- 
pla, isto e, pode-se transmitir paginas, 
fotos ou textos, tambem nos cinco sen- 
tidos. Desta tecnologia, somente outros », 
tres jornais se utilizam no mundo: The 
Wall Street Journal, dos Estados Uni- 
dos; o Nihon Keizai Shimbun, do Ja- 
pao; e o Financial Times, da Inglaterra. 

Assim como O Estado de S. Paulo, 
Editora Abril, Jornal do Brasil e outras 
empresas jornalisticas, a Gazeta Mer- 
cantil tambem fornece servicos atraves 
do videotexto, com noticiario economi- 
co, neg6cios e informacoes industriais, 
al6m do servico especial reservado so- 
mente aos clientes da propria Gazeta 
Mercantil. 
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Curso Intensive 

de 

M icrocom put adores 



Louis E. Frenzel Jr. 
EDITELE 1985 
formato: 14 x 21 cm 
336 paginas 



Uma das caracterfsticas mais marcan- 
tes do mundo dos computadores e, sem 
duvida, o seu aparente hermetismo. Tu- 
do que se relaciona com essas maqui- 
nas e sempre tornado como "coisa de 
tecnico" ou "papo de matematico". Si- 
tuagao muito comum a todas as novi- 
dades tecnologicas: no inicio, sempre 
parece muito diffcil assimilar os novos 
conceitos. 

Paradesfazeressasituagao, surgemli- 
vros que buscam popularizar as novas 
tecnicas. E o caso do Curso Intensivo 
de Microcomputadores, urn estudo di- 
rigido principalmente para o leigo. A 
obraeabrangenteedidatica, podendo 
ser utilizada sob tres enfoques distin- 
tos: como curso geral de informatica, 
abordando todos os conceitos e dan- 
do ao leitor uma ampla visao do que sao 
os microcomputadores; como urn cur- 
sode hardware, falando com mais pro- 
fundidade dos circuitos que compoem 
os equipamentos; ou como urn curso 
de software, explanando sobre proce- 
dimentos e linguagens de programa- 
gao, incluindo af urn curso de Basic. 
Sem duvida, trata-se de uma das obras 
mais completas ja editadas em nossa 
lingua, sendo recomendada nao so pa- 
ra o leigo como tambem ao estudante 
ou mesmo ao profissional da area. 



SUGESTOES PARA O PRO- 
GRAMADOR BASIC, de E. 

R. Savage, Editele — Editora 
Tecnica Eletronica. Destina- 
do tanto a iniciantes quanto 
a programadores ja experien- 
tes, este livro traz uma serie de 
sugestoes e sub-rotinas que 
permitem otimizar a elabora- 
cao de programas, tornando- 
os mais compactos, elegantes 
e de execucao mais rapida. Es- 
critas na Basic Nivel II do 
TRS-80 e compativeis. 



ciais de impressao, operacao 
com bloco de texto, operacao 
com segmentos de texto, con- 
trole e impressao. 



PROGRAMAS ADMINIS- 
TRATTVOS EM BASIC SIN- 
CLAIR, de Lourival Karsten, 
Editoras Campus/Nobel, 142 
paginas, Cr$ 19.900. Este li- 
vro e destinado a tecnicos-es- 
pecialistas ligados a adminis- 
tracao de empresas, que ope- 
ram com microcomputadores 
da linha Sinclair. 



WORDSTAR: UM GUIA 
COMPILADO DO USUA- 

RIO, de C. Chiappeta, Editora 
Ciencia Moderna Computa- 
cao, 109 paginas, Cr$ 13.500. 
A preocupacao do autor e fa- 
cilitar o trabalho do usuario, 
detalhando as funcoes deste 
processador de textos. A obra 
apresenta os seguintes dados: 
consideracoes gerais, entrada 
de texto, correcao de texto, 
formatacao de paginas, titu- 
los, numeracao de paginas, 
layout do texto, efeitos espe- 



GERENCIA DE BASES DE 
DADOS PARA MICRO- 
COMPUTADORES, de E. 

G. Brooner, Editora Campus. 
Atraves de uma abordagem 
simples e objetiva, este livro 
explica muitos dos metodos 
utilizados para a manipula- 
cao de dados, fornecendo a 
orientagao necessaria para o 
uso dos recursos de busca e 
classificacao, o linking e o 
hashing. O autor enfatiza os 
aspectos praticos, descreve e 
avalia imimeras aplicacoes 
comerciais. 



MATEMATICA PARA MI- 
CROCOMPUTADORES, 

de William Barden Jr., Edito- 
ra Campus, 128 paginas, 
Cr$ 16.000. Seu objetivo e eli- 
minar o misterio em torno 
das operacoes matematicas 
utilizadas em linguagem Ba- 
sic ou Assembler. O texto 
apresenta uma introducao 
gradativa as operacoes arit- 
meticas em todos os tipos de 
microcomputadores. A obra 
abrange tambem os sistemas 
numericos binario, octal e he- 
xadecimal; discutedetalhada- 
mente a representacao nume- 
rica e a adicao e subtracao de 
mimeros binarios e hexadeci- 
mais. Um livro importante 
para iniciantes e para o usua- 
rio que ja possui experiencia. 



16 



GERACAO PROL6GICA 



CP400 

MICROCOMPUTADOR=COLOR 




QUEM TEM UMJEM FUTURO. 



VOCE TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTAO AI. E 
CP 400 COLOR E A CHAVE DESSA 
EVOLUgAO PESSOAL E PROFISSIONAL. 
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PORQUE? 
PORQUEOCP400 
COLOR EUM 
COMPUTADOR 
PESSOAL 
DE TEMPO 
INTEGRAL: UTIL 
PARA A FAMILIA TODA, DIA 
LNTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO.EMUITOMAIS 
EMOCIONANTE PORQUE, ALEM DE 
OFERECERJOGOSINEDITOS, 
E UNICO COM DOIS JOYSTICKS 
ANALOGICOSDEALTA 
SENSIBILIDADE, QUE PERMITEM 
MOVIMENTARASIMAGENS 
EM TODAS AS DIREgOES, MESMO. 

NAHORADETRABALHARE 
ESTUDAR, CP 400 COLOR MOSTRA 
SEU LADO SERIO: MEMORIA 
EXPANSIVEL, PORTA PARA COMU- 
NICAgAODE DADOS, SAIDAPARA 
IMPRESSORA E UMA OTIMA NITIDEZ 
COMIMAGENSCOLORIDAS. 

COMOSETUDOISSONAO 
BASTASSE, A PROLOGICA AINDA 
OFERECEAGARANTIADE 
QUALIDADE DE QUEM E LIDER NA 
TECNOLOGIADECOMPUTA- 
DORES, E PREgO MAIS ACESSIVEL 
NACATEGORIA. 

NUMAFRASErSEVOCENAO 
QUISER CHEGAR ATRASADO AO 
FUTURO, COMPRE SEU CP 400 



COLOR IMEDIATAMENTE. 

EMO(AO E INTELIGENCIA NUM 
EQUIPAMENTOSO. 

•IMAGENSCOMATE9CORES. 

• OTIMA RESOLUgAO: 49.152 PONTOS. 

• DUAS VERSOES A SUA ESCOLHA: 
16K OU 64K DE MEMORIA RAM. 

• MEMORIA RAM EXPANSIVEL: VOCE 
COMEgA COM 16K E PODE CHEGAR 
ATE64KCOMDISQUETES. 

• UTILIZA CARTUCHOS PARA APLICA- 

TTVOSEJOGOS: 
BANCO DE DADOS 
EDITOR DETEX- 
TOS,PLANILHAS 
ELETRONICAS, 
GRAFICOS, ' 
ENTREOUTROS. 
' MEMORIA 
EXTERNA EM 

CASSETE Oil DISOUETE 

DISK-SYSTEM, CP 43U. 

• PORTA RS 232 C INCORPORADA, 
PERMITINDO COMUNICAgAO 
DE DADOS E LIGAgAO DIRETA A 
IMPRESSORA 
SERIAL. 

•PERMITECOM- 
PETigAO DE 2 
JOGADORESAO 
MESMO TEMPO. 
SEUS JOYSTICKS 
ANALOGICOS 
OFERECEM INFI- 
NITASPOSigOES 




NA TELA, ENQUANTO OUTROS TEM 
SOMENTE 
8DIREgOES. 
> GRANDE QUANTl^ 
DADEDE 
PROGRAMAS 
ADISPOSigAO: 
APUCATTVOS 
PESSOAIS, PROFIS- 
SIONAISEJOGOS. | 

VEJA, TESTE E COMPRE 
SEU CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PROLOGICA. 

TECNOLOGIA ■■■ 
PROLOGICA ■■■ 





COMPUTADORES PESSOAIS 

RUAPTOLOMEU, 650- VILA SOCORRO 
SAO PAULO ■ SP ■ CEP 04 762 
FONE:(PBX) 521-1633 




A mais complete 

linha de comptit 

pessoais 




CP200S 

professor ideal 
para os iniciantes no 
mundo da informatica. 




CP500 



o 

executivo 

dos 

executivos 



preferido 

dos 

profissionais 

liberals. 





P500S 

A 

impressora 

bem dotada. 

Compativel com 

todos os micros. 



CP300 




pequeno grande micro expansivel, com enorme 
base de programas. 




CP400 
COLOR 

Quem tem um 
tem futuro. 
computador pessoal 
que presta servicos 
a toda famllia. 
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COMPUTADORES PESSOAIS 



TECNOUOGIA ■■! 

PROLDG1CA ■■■ 



RUA PTOLOMEU. 650 - VILA SOCORRO 
SAO PAULO ■ SP - CEP 04762 
FONE(PBX) 521-1633 




